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SEQ 0001 


1 

2 

3 

4 

5 .REM z 

6 

7 

a 
| 
10 

1 | 
12 | 
i IDENTIFICATION 

15 | 
16 

4 PRODUCT CODE: AC-F 782A-MC 

2 PRODUCT NAME: CZDRKAO DR11-w INTRPROC EXER 
21 DATE: AUG 1979 
$3 MAINTAINER: DIAGNOSTIC ENGINEERING | 
26 | 
26 
27 COPYRIGHT (C) 1979 
44 DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. 
30 THIS SOFTWARE 1S FURNISHED UNDER A LICENSE FOR USE ONLY | 
31 ON A SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH 

32 THE INCLUSION OF THE ABOVE COPYRIGHT NOTICE. ThIS 
33 SOFTWARE, OR ANY OTHER COPIES THEREOF, MAY NOT BE PRO- 
34 VIDED OR OTHERWISE MADE AVAILABLE TO ANY OTHER PERSON 
35 EXCEPT FOR USE ON SUCH SYSTEM AND TO ONE WHO AGREES TO 

%6 THESE LICENSE TERMS. TITLE TO AND OWNERSHIP OF THE 
3 SOFTWARE SHALL AT ALL TIMES REMAIN IN DEC. 

| 

39 THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE 
40 WITHOUT NOTICE AND SHOULD NOT BE CONSTRUED AS & COM- 
at MITMENT BY DIGITAL EQUIPMENT CORPORATION. | 
4 
4? DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY 

44 OF 11S SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY 


DEC. 
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SEQ 0003 

87 
88 
89 
90 1.0 ABSTRACT 
cer ite ae 
93 THE DR11W INTERPROCESSOR EXERCISER WAS DESIGNED TO PASS DATA BETWEEN 
94 TWO COMPUTERS. ONE COMPUTER CONTAINS A DRI1w DMA INTERFACE 
95 AND THE OTHER CONTAINS EITHER A DRI1W OR A DRVIIB DMA INTERFACE. 
9% THE FOLLOWING CONFIGURATIONS ARE VALID 
98 
99 a er 

LS1-11 PDP-11 

DRVI1-B 0 === n-~=== DR11-w 

i eee 
PDP=11 PDP=11 
DRI-W we nee nanan DRI 1-W 


EACH CONFIGURATION USES THE DR1I1W EXERCISER LOADED INTO EACH 
OF THE COMPUTERS INVOLVED. 


2.0 REQUIREMENTS 
2.1 EQUIPMENT 
1. ONE PDP11 COMPUTER EQUIPPED WITH A DRI1I<W. 
ONE LSI1-11 EQUIPPED WITH A DRV11-B OR ANOTHER PDP11 WITH A DRI1-W. 
EACH SYSTEM EQUIPPED WITH AN 1/0 TERMINAL : 
CABLES (TWO) TO INTER CONNECT THE TWO DMA INTERFACES 


> ww M 
. . 


2.2 STORAGE 
THE PROGRAM USES THE LOWER 3400 WORDS OF MEMORY 


WMPFWNR "OO OONG VF WH "OO OOne VFWN—OOO~ 


3.0 LOADING AND START PROCEDURE 


1. CHOOSE ONE OF THE INTERPROCESSOR CONFIGURATIONS SPECIFIED 
AND LOAD THE DR11-W INTERPROCESSOR EXERCISER INTO EACH SYSTEM. 


1. MAKE SURE EACH DMA INTERFACE OF BOTH COMPUTER SYSTEMS 
ARE CABLED TOGETHER THRU THE 1/0 CONNECTIONS 


a eine 
ares FO ee ee Se Oe ON SS sane er unno eee ares 
WF wr 


Wwr—-O O@O™nNn 
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2. 


MAKE SURE THE DEVICE & VECTOR ADDRESSES AGREE WITH THE 
DEFAULT VALUES DEFINED IN SECTION 6.1. IF NOT, CHANGE 
LOCATION(S) AS DESIRED VIA A "PATCH® METHOD CONSISTENT WITH 
WITH THE SYSTEM USED. 


INSURE THAT THE HALT SWITCH IS DISABLED (IF ANY). 
DEFINE WHAT COMPUTER JS TO BE THE INITIAL SLAVE = THE 
OTHER WILL BE THE INITIAL MASTER (THE ONE STARTED AS 
MASTER WILL REPORT THE ‘END OF PASS‘ MESSAGE). 


START THE SLAVE **FIRST#** AT ADDRESS 204. AFTER THE SLAVE 
HAS BEEN STARTED THE FOLLOWING PRINTOUT WILL OCCUR: 


DRI1lwW INTERPROCESSOR EXERCISER 


1S xr . TESTING A DRV11B OR DR11W? 
TYPE v O 


THE OPERATOR TYPES V FOR DRV11B OR W FOR DRIIW. IF THE USER 
WERE TO TYPE ‘V" THEN THE FOLLOWING WOULD BE PRINTED: 


DRV11B BOARD 
INTERPROCESSOR LINK NOW IN PROGRESS.... 


AT THIS POINT THE SLAVE IS WAITING FOR THE MASTER TO BE STARTED. 


NOW START THE OTHER COMPUTER(MASTER) AT SA 200. SIMILARLY THE 
PROGRAM WILL REQUEST THE BOARD TYPE. WHEN USER ANSWERS 
(LET'S SAY WITH A W) THE PRINTOUT WILL SHOW: 


DR11W BOARD 
INTERPROCESSOR LINK NOW IN PROGRESS.... 


THE TWO SYSTEMS SHOULD NOW BE COMMUNICATING WITH THE TESTS 
BEING PERFORMED. 


THE END OF PASS MESSAGE WILL SUSEQUENTLY OCCUR AS FOLLOWS: 


END PASS ’ 1 
END PASS # 2 
ETC. 


THE FIRST END PASS IS WITH NO ITERATIONS; ALL OTHERS ARE 
WITH ITERATIONS. 


ERRORS 


ERROR COMMENT 


SEQ 0004 


, 
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SEQ 0005 

201 
202 ALL ERRORS ARE ACCOMPAINED WITH AN ENGLISH LANGUAGE DESCRIPTIVE 
203 ” COMMENT AS TO THE TYPE OF FAILURE. FURTHER QUALIFICATION OF 
204 THE ERROR CAN BE OBTAINED FROM THE COMMENT AT THE ERROR PC 
205 OF FROM THE TEST ITSELF. 
206 
207 
208 
+44 4.2 ERROR DATA 
211 ERRPC LISTING ADDRESS WHERE THE ERROR WAS DETECTED 
212 BUSADR DRV11B BUS REG ADDRESS OF CONCERNED OPERATION 
213 EXPCT DATA THAT WAS EXPECTED 
214 RCVD DATA THAT WAS RECEIVED 
Se MEMADR MEMORY ADDRESS OF DATA ERROR 
217 
218 
$00 4.3 ERROR RECOVERY 
$1 4.3.1 RECOVERABLE ERRORS 
225 BECAUSE OF THE SYNCHRONIZATION ESTABLISHED WITH THE OTHER COMPUTER, 
224 MOST ERROR CONDITIONS WILL CAUSE BOTH COMPUTERS TO RE-SYNCHRONIZE 
225 AT THE START OF THE PROGRAM. WHEN AN ERROR OCCURS, AN ERROR MESSAGE 
226 WILL BE PRINTED. FOLLOWING THIS , A DELAY OF 5-10 SEC WILL OCCUR 
534 AND THE COMPUTER STARTED AS SLAVE WILL PRINT: 
st *RESYNC... 
231 THIS INDICATES THAT THIS CPU HAS SUCCESSFULLY STARTED ITS PROGRAM 
232 AGAIN AND 1S WAITING FOR MASTER CPU 
th APPROX. 5-10 SEC LATER THE CPU STARTED AS MASTER WILL TYPt: 

4 
tHe *RESYNC... 

6 
237 AT THIS POINT BOTH CPU'S SHOULD BE AGAIN COMMUNICATING AND TESTING 
See WILL HAVE BEEN RESUMED FROM THE START OF THE PROGRAM, 
me 4.3.2  NON-RECOVERABLE ERRORS 

4 
242 SOME ERRORS CAN OCCUR DUE TO DMA INTERFACE MALFUNCTIONS, 
$7 INTERMITTENT CABLE CONNECTIONS, ETC. 

44 
245 1. AN ERROR OF THIS TYPE MAY RESULT IN ONE OR BOTH SYSTEMS 
246 STUCK IN ONE OF THE ‘WAIT LOOPS* FOUND IN THE PROGRAM, 
247 THE WAIT LOOP COULD BE A SOFTWARE LOOP INVOKED BY A SYSTEM WHILE 
248 WAITING FOR ITS COMPANION TO SET A BIT IN IT'S REGISTER 
249 IF THIS NEVER COMES THEN THE SYSTEM WAITS INDEFINIJELY AND 
$20 SYNCHRONIZATION IS LOST. 
252 2. A TEST SUCH AS "BURST DATA LATE ‘MAY FAIL AND HANG 
253 THE BUS OF ONE SYSTEM. 
33 IN THIS CASE, THE CPU FAILS TO EXECUTE ANY FURTHER INSTRUCTIONS . 
256 AS STATED IN 4.3.1 MOST ERROR CONDITIONS CAN BE HANDLED BY 


257 RESYNCHRONIZATION. HOWEVER,THE PROGRAMS WILL NOT BE ABLE TO RECOVER 
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SEQ 0006 

258 : THEMSELVES FROM THE ABOVE ERROR TYPES. THEREFORE IT BEHOOVES THE OPERATOR TO 
259 PERIODICALLY CHECK FOR ‘END PASS* PRINTOUTS WHICH WILL OCCUR 
260 APPROX. EVERY 2 MINUTES. THIS WILL VERIFY THAT BOTH SYSTEMS 
261 ARE STILL IN SYNC. 
262 1—f SYNCHRONIZATION IS LOST,BOTH SYSTEMS MUST BE HALTED WHEREBY THE ADDRESS 
263 LOCATION OF EACH PROGRAM CAN BE DETECTED THRU ‘ADDRESS* REGISTER 
264 OR ‘ODT’ PRINTOUT. BOTH PROGRAMS MUST BE RE-STARTED AS SPECIFIED 
265 IN SECT. 3.0. 
266 
267 
268 
269 
270 
$f 5.0 SOFTWARE SWITCH REGISTER 
273 
274 
275 
276 a OPTIONS 
277 
278 SWITCH OCTAL FUNCTION 
BPO De Ss Oe BP ee or nd! meen 3 t eet a!) > eee 
280 
281 B1115=1 100000 HALT ON ERROR 
282 BI113=1 020000 INHIBIT ERROR TYPEOUTS 
283 B1110=1 002000 BELL ON ERROR 
284 
285 
43 5.2 IMPLEMENTATION 
288 If THE DIAGNOSTIC IS RUN ON A CPU WITHOUT A SWITCH 
289 REGISTER THEN A SOFTWARE SWITCH REGISTER IS USED WHICH ALLOWS 
290 THE USER THE SAME SWITCH OPTIONS AS THE HARDWARE SWITCH REGISTER. 
291 If THE HARDWARE SWITCH REGISTER DOES NOT EXIST OR IF ONE DOES 
292 AND IT CONTAINS ALL ONES (177777) THEN THE SOFTWARE SWITCH 
293 REGISTER (LOC. 176) IS USED. | UNNDER THESE CONDITIONS 
294 THE PROGRAM WILL REQUEST THAT THE SOFTWARE SWITCH REGISTER 
3 BE LOADED UPON 1ST PASS OF THE PROGRAM. IT WILL PRINT: 

6 
44 SWR:=XXXXXX NEW= (USER ENTERS IN FOLLOWING NetW=) 
299 
on 5.5 CONTROL 
302 1. THE SOFTWARE SWITCH REGISTER ‘SWREG* (LOC. 176) CAN BE 
at CHANGED BY USING ODT FACILITIES. 

4 
305 2. THE SOFTWARE SWITCH REGISTER CAN BE CHANGED UNDER PROGRAM 
306 CONTROL BY TYPING THE ‘CONTROL & G* KEYS. THIS KEYBOARD 
307 OPERATION WILL PRINT OUT THE CURRENT CONTENTS AND ACCEPT 
308 NEW OCTAL SWITCH REGISTER DATA TERMINATED WITH A CARRIAGE 
i190 RETURN. 


1 WHEN USING THE ODT MODE AND ONCE IT HAS BEEN ENTERED DUE TO AN ERROR 
2 CONDITION WITH BIT15 SET (HALT ON ERROR), STEP #2 ABOVE 

3 1S OF NO VALUE, SO RESORT TO STEP #1 TO ALTER THE CONTENTS. 
4 a 
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NORS 
—OOOnOwW 


6.0 


6.1 


6.2 


7.0 


8.0 


8.1 


8.2 


MISCELLANEOUS 


DRV11B AND/OR DR11W BUS & VECTOR ADDRESS MODIFICATION 


MODIFY LOCATION ‘INTADR' IF BASE BUS ADDRESS IS NOT 172410 
MODIFY LOLATION "DRVECT' IF VECTOR ADDRESS IS NOT 126 


NOTE: USE APPROPRIATE PATCH FACILITIES TO MODIFY THESE LOCATIONS 
AFTER PROGRAM LOAD. 


POWER FAIL 


THE PROGRAM OFFERS NO PROVISIONS FOR RESTART PROCEDURES 

DUE TO POWER FAIL. UPON POWER UP, AND ASSUMING NON 

VOLATILE MEMORY, THE PROGRAM OF EACH SYSTEM MUST BE RESTARTED 
ACCORDING TO SECT. 3.0. 


EXECUTION TIME 


EXECUTION TIME IS ABOUT 3 SEC FOR NO ITERATIONS 
EXECUTION TIME W/ITERATIONS IS DETERMINED BY THE SYSTEM CONFIGURATION 
ACTUAL RUN TIMES ARE AS FOLLOWS: 

11/34 = 11/05: 3MIN 

11/70 = 11/45: 45SEC. 

11/70 = 11/03: IMIN 15SEC. 


PROGRAM DESCRIPTION 


GENERAL 


THIS INTERPROCESSOR EXERCISER WAS DESIGNED TO TEST THE 1/0 
ABILITY OF THE DR11W GENERAL PURPOSE INTERFACE TO COMMUNICATE TO 
ANOTHER DR11W OR DRVI1B LOCATED IN ANOTHER SYSTEM. THE TWO 
COMPUTERS ARE STARTED AT DIFFERENT ADDRESSES TO ESTABLISH 
INITIAL SYNCHRONIZATION. THE SLAVE COMPUTER IS STARTED 1ST 
(START 204) AND THE MASTER COMPUTER 1S STARTED 2ND (START 200). 
THE TERMS ‘MASTER AND ‘SLAVE* SHOULD BE USED LOOSELY AS THE 
MASTER WILL BECOME THE SLAVE AND THE SLAVE WILL BECOME THE 
MASTER AS THE PROGRAM ADVANCES. THE COMPUTER STARTED AT 

ADDRESS 200 WILL ALWAYS REPORT THE ‘END OF PASS* MESSAGE. 


PROGRAM SEGMENTS 


1A, MTST1 = MASTER SENDS OUT PROGRAM CONTROLLED SINGLE WORDS 
THRU THE DATA BUFFER REGISTER AND EXPECTS THE SLAVE TO ECHO 
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38. 


4B. 


5B. 


. MTSTS BURST DATA LATE TEST-MASTER XMITS 5 WORDS TO SLAVE 


SEQ 0008 
EACH WORD BACK TO THE MASTER VIA THE DATA BUFFER REGISTER. 
STST1 = SLAVE ECHOS ALL CHANGES IN THE DATA BUFFER REGISTER 


TEST THAT SLAVE CAN INTERRUPT MASTER: F2(SLAVE) TO ATIN(MASTER) 
TEST THAT SLAVE INTERRUPTS MASTER:F2 TO ATIN 


MTST2 = MASTER SENDS OUT A "FNCT* BIT CODE IN THE COMMAND 
STATUS REGISTER AND EXPECTS THE SLAVE TO ECHO EACH CODE IN 
ITS ‘FNCT® BITS. THE MASTER WILL READ THE *STAT® BIT CODE 
FROM THE COMMAND/STATUS REGISTER AND COMPARE IT TO THE 
CODE WRITTEN. 


STST2 = SLAVE READS THE ‘STAT’ BIT CODE FROM IT°S COMMAND/ 
STATUS REGISTER, CONVERTS THIS CODE AND WRITES IT INTO 
1T*S "FNCT® BITS IN THE COMMAND/STATUS REGISTER. 


MIST3-BLOCK MODE XFER-MASTER SENDS OUT A 32 WORD 
DATA BLOCK TO THE SLAVE 

AND CHECKS FOR PROPER INTERRUPT STATUS, WORD COUNT, 
AND BUFFER ADDRESS AT THE COMPLETION OF THE TRANSFER. 


STST3-BLOCK MODE XFER-SLAVE RECEIVES A 32 WORD DATA BLOCK FROM THE 
MASTER AND CHECKS FOR PROPER INTERRUPT STATUS, WORD COUNT, 
BUFFER ADDRESS, AND DATA CONTENT. 


MTST4 BURST MODE WORD XFER-MASTER XMITS 32 WORDS TO SLAVE 
(DR11-W TO (DRI1-W ONLY) 
SAME AS 4A EXCEPT BURST MODE:BOARD DOES NOT RELEASE BUS 
UNTIL WORD COUNT OVERFLOW 


STST4 BURST MODE WORD XFER TEST-SLAVE RECEIVES 32 WORDS 
FROM MASTER(DR11W TO DR11W ONLY) 
SAME AS 4B EXCEPT BURST MODE 


WHILE SLAVE RECEIVES 5 AND TIMES OUT (DRI1-wW TO DR1I1-W ONLY) 


PROCEDURE: MASTER XMITS 5 WORDS TO SLAVE IN BURST MODE 
SLAVE IS SETUP TO DO 10 XFERS. CHECK THAT MASTER INTERRUPTS 
BY WCOF. CHECK CSR,WC,AND BA. AFTER 5 XFERS ARE DONE IN 
SLAVE, TIMEOUT OCCURS(50US), SINCE SLAVE WAITS FOR GO-AHEAD 
FROM MASTER TO CONTINUE BUT MASTER NEVER RESPONDS. IN 
SLAVE: CHECK THA! 5 XFERS HAVE BEEN COMPLETED. 

NOTE: SOUS IS MAX TIMEOUT THAT REPRESENTS LENGTH OF TIME 
BOARD HOLDS THE BUS WHILE WAITING FOR COMPANION . IT IS BEYOND 
THE CAPABILITY OF THIS DIAGNOSTIC TO VERIFY A SOUS TIMEOUT. 
IN FACT, IF THE TIMEOUT FEATURE MALFUNCTIONS SO AS TO HOLD 
THE BUS INDEFINITELY,THE PROGRAM WILL ‘HANG UP* THE CPU 
WITH NO RECOVERY PROVIDED FOR. 


CZORKAO DRIl-w INTRPROC EXER 
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SEQ 0009 


THEREFORE ,OPERATOR SCRUTINY IS ADVISABLE TO VERIFY 
THAT THE PROGRAM IS STILL RUNNING AND THAT THE DR11-W HAS 
AT LEAST RELEASED THE BUS IN TEST 5. 


6B. STSTS BURST DATA LATE TEST-SLAVE RECEIVES 5 WORDS 
FROM MASTER AND TIMES OUT WHILE EXPECTING MORE 
(DRI 1-W TO OR11-W ONLY) 
SETS UP TO RECEIVE 10 WORDS IN BURST MODE FROM MASTER,BUT MASTER WILL ONLY SEND 
TIMEOUT OCCURS AND THE BUS IS RELEASED 
THEN CHECKS FOR PROPER INTERRUPT STATUS, WC, BA & DATA 
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000001 


000001 


001100 
104000 
000004 


000011 


177570 
177570 


000000 


000007 
000000 


000300 
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SEQ 0010 


-TITLE CZDRKAO tle INTRPROC EXER 
;*COPYRIGHT (C) 1979 

:*DIGITAL EQUIPMENT CORP. 

s SRATRARD , MASS. 01754 


!sPROGRAM BY JOHN W. CIUKAJ 


aTHIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC 
s SPACKAGE (MAINDEC=11-DZQAC-C3), JAN 19, 1977. 


$tN- 1 


$SWR=160000 ::HALT ON ERROR, LOOP ON TEST, INHIBIT ERROR TYPOUT 
$5WR=122000 
$TN=1 
-SBTTL OPERATIONAL SWITCH SETTINGS 
re SWITCH USE 
-e¢  weseeee ii i i iseesceseececeooooseco 
te 15 HALT ON ERROR 
ie 13 INHIBIT ERROR TYPEOUTS 
ie 10 BELL ON ERROR 


-SBTTL BASIC DEFINITIONS 
:* INITIAL ADDRESS OF THE STACK POINTER *** 1100 ### 


STACK= 1100 
ERROR=EMT 
SCOPE=10T 
s*MI]SCELLANEOUS DEFINITIONS 
HT= 11 3:;CODE FOR HORIZONTAL TAB 
LF= 12 3:;CODE FOR LINE FEED 
CR= 15 3;CODE FOR CARRIAGE RETURN 
CRLF= 200 3;CODE FOR CARRIAGE RETURN-LINE FEED 
_ ma 177776 3;PROCESSOR STATUS WORD 
W- 
STKLMT= 177774 7: STACK LIMIT REGISTER 
PIRQ= 177772 3;PROGRAM INTERRUPT REQUEST REGISTER 
DSWR= 177570 ore SWITCH REGISTER 
DDISP= 177570 ARDWARE DISPLAY REGISTER ~ 
> *GENERAL PURPOSE REGISTER DEFINITIONS 
RO= 20 7; GENERAL REGISTER 
Ri= %1 7;GENERAL REGISTER 
R2= %2 7: GENERAL REGISTER 
R3= 23 7; GENERAL REGISTER 
R4= %4 7:;GENERAL REGISTER 
R5= a5 > :;GENERAL REGISTER 
R6= %6 3 GENERAL REGISTER 
R7= %7 3;GENERAL REGISTER 
SP= %6 2 STACK POINTER 
PC= 27 ;PROGRAM COUNTER 
s*PRIORITY LEVEL DEFINITIONS 
PRO= 0 PRIORITY LEVEL 0 
PR1= 40 [PRIORITY LEVEL 1 
-PR2= 100 :: PRIORITY LEVEL 2 
+ PR3= 140 s: PRIORITY LEVEL 3 
PR4= 200 s:PRIORITY LEVEL 4 
PRS= 2406 > PRIORITY LEVEL 5 
PR6= 300 : PRIORITY LEVEL 6 






CZDRKAO DRI1<W 
BASIC DEF INIT 





10N 


000001 
100000 


000001 


| 000004 


> mecha EXER 


‘a, 
Le 
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PR?= 340 ;:PRIORITY LEVEL 7 
3*’"SWITCH REGISTER’ SWITCH DEFINITIONS 
Swi5= 100000 
Sw14= 40000 
Swi3= 20000 
Swi2= 10000 
Swil= 4000 
Swi0= 2000 
SwO9= 1000 
swO8= 400 
Ssw07= 200 
$w06= 100 
SwOS= 40 
SwO4= 20 
swO3= 10 
SWwO2= 4 
SwOl= 2 
swoO= 1 
Sw9=SWO9 
SW8=SW08 
SW7=SW07 
SW6=SW06 
SW5=Sw05S 
SW4=SW04 . 
SW3=Sw03 
SW2=Sw02 
SwWi=Sw01l 
$W0=SW00 
;*DATA BIT DEFINITIONS (B1T00 TO B1115) 
BIT15= 100000 
B1T14= 40000 
B1T13= 20000 
BIT12= 10000 
BIT11= 4000 
B1T10= 2000 
B1T09= 1000 
B1T08= 400 
B1T07= 200 
B1T06= 100 
BIT05= 40 
B1T04= 20 
B1T03= 10 
BITO2= 4 
BITOIl= 2 
BITOO= 1 
B119=B1109 
B118=B1108 
B117=B1107 
B116=B1106 
B115=B1105 
B114=B1104 
B113=B1 103 
B1T2=B1102 
B111=B1101 
B110=B1T00 
:*BASIC “‘CPU'’ TRAP VECTOR ADDRESSES 
ERRVEC= 4 > TIME OUT AND OTHER ERRORS 


SEQ 0011 
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BASIC DEFINITION SEQ 0012 


900010 RESVEC= 10 see seeyee AND ILLEGAL INSTRUCTIONS 
000014 TBITVEC=14 BIT 
000014 TRIVEC= 14 TRACE TRAP 
000014 BPTVEC= 14 ‘ IBREAKPOINT TRAP (BPT) 
000020 1OTVEC= 20 ph me ta TRAP (JOT) #**SCOPE*® 
000024 PWRVEC= 24 >;POWER FAIL 
000030 MIVEC= Ae eh TRAP (EMT) **ERROR** 
000034 TRAPVEC=34 H AP** TRAP 
000060 TKVEC= 60 tity KEYBOARD VECTOR 
000064 TPVEC= 64 7; TTY PRINTER VECTOR 
000240 PIRQVEC=240 ;;PROGRAM INTERRUPT REQUEST VECTOR 
475 106427 MTPS=106427 INSTR EQUATE THAT MOVES BYTE TO PSW 
476 -SBTTL TRAP CATCHER 
000000 -=0 
:*ALL UNUSED LOCATIONS FROM 4 - 776 CONTAIN A ‘*.4#2,HALT" 
;*SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 
000176 nee CONTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS 
000174 000000 DISPREG: .WwORD 0 ;;SOFTWARE DISPLAY REGISTER 
000176 000000 SWREG: .WORD 0 ;; SOFTWARE SWITCH REGISTER 
.SBTTL STARTING ADDRESS(ES) 
000200 000137 001506 JMP OASTARTI >; JUMP TO STARTING ADDRESS OF PROGRAM 
24 000204 oa dhl 001514 00 SASTART2 ;GO START AS SLAVE COMPUTER 
4 = 
479 000100 000104 000200 000002 «WORD 104,200,2 71F °B EVENT® ON Q@-BUS IS CONNECTED 
480 ;JUST DO A RTI (IGNORE IT) 





481 


= 


CZDRKAO 
COMMON | 


DRI 1-w 
AGS 
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377 


-SBTTL COMMON TAGS 


ppeeererereerererererereeerrerererererereneereeerererteseeeereree 
;*THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
IN THE PROGRAM. 


; *USED 


$BDDAT: . 


SAUTOB: 
SINTAG: 


-=1100 


: [BYTE 


-ASCIZ 


-ASCII 
-ASCI1 
-ASCIZ 


oooooooo°o°0o-COCoOCOoOCoOooO 


ov 
ow 
—=£ 
ww 
vo 


2 
207><377><377> 


AoO—-NO 





7:START CF COMMON TAGS 

3; CONTAINS PASS COUNT 

:;CONTAINS THE TEST NUMBER 

7: CONTAINS ERROR FLAG 

:: CONTAINS SUBTEST ITERATION COUNT 
3s: CONTAINS SCOPE LOOP ADDRESS 

7: CONTAINS SCOPE RETURN FOR ERRORS 
7; CONTAINS TOTAL ERRORS DETECTED 
7: CONTAINS ITEM CONTROL BYTE 

:: CONTAINS MAX. ERRORS PER TEST 

7; CONTAINS PC OF LAST ERROR INSTRUCTION 
3: CONTAINS ADDRESS OF ‘GOOD’ DATA 
3: CONTAINS ADDRESS OF ‘BAD DATA 
::; CONTAINS "GOOD" DATA 

;;CONTAINS "BAD' DATA 

; ;sRESERVED--NOT TO BE USED 


; AUTOMATIC MODE INDICATOR 
>; INTERRUPT MODE INDICATOR 


> ADDRESS OF SWITCH REGISTER 

; ADDRESS OF DISPLAY REGISTER 

3;1TTY KBD STATUS 

7: TTY KBD BUFFER 

s;TTY PRINTER STATUS REG. ADDRESS 

:: TTY PRINTER BUFFER REG. ADDRESS 

3s: CONTAINS NULL CHARACTER FOR FILLS 
>;CONTAINS # OF FILLER CHARACTERS REQUIRED 
>: INSERT FILL CHARS. AFTER A ‘LINE FEED" 


;;‘'TERMINAL AVAILABLE" FLAG (B11<07>=0=YES) 


SSCODE FOR BELL 


>; QUESTION MARK 
>; CARRIAGE RETURN 
;;LINE FEED 


SL eeeeeaeereereeeseseererereeeeeseeseaAeraKtaneeeKeeneHeeenAeserse 


SEQ 0015 


001170 
482 
483 001170 
484 001172 
485 001174 
486 001176 
487 


488 
489 0C1200 


00 


504 001226 
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-SBTTL ERROR POINTER TABLE 

:*THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT on OCCUR.” 

;*THE INFORMATION 1S OBTAINED BY USING THE INDEX NUMBER FOUND IN 

S*LOCATION SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT. 


: *NOTE1: IF SITEMB IS O THE ONLY PERTINENT DATA IS (SERRPC) 
; #NOTE2: EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 
: EM >;POINTS TO THE ERROR MESSAGE 
7 DH ::POINTS TO THE DATA HEADER 
:f DT ::;POINTS TO THE DATA 
;* DF ::POINTS TO THE DATA FORMAT 
SERRTB: 
sERROR 1 
EM) ;SLAVE FAILED TO ECHO DBR CONTENTS 
DH} sERRPC BUSADR EXPCT RCVD 
-" sSERRPC SBDADR S$GDDAT $BDDAT 
sERROR 2 
EM2 sSLAVE FAILED TO ECHO ‘STAT’ BITS 
DH1 sERRPC BUSADR' EXPCT RCVvD 
” sSERRPC SBDADR $GDDAT S$BDDAT 
sERROR 3 
EMS sFAILED TO INTR ON A ‘DATI' 
DH] SERRPC BUSADR EXPCT RCVD 
" sSERRPC $SBDADR $GDDAT $BDDAT 
sERROR 4&4 
EM4 sSTATUS ER ON 'DATI' 
DH1 sERRPC BUSADR EXPCT RCVvD 
é :SERRPC SBDADR $GDDAT $BDOAT 


— 


C 
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ERROR POINTER TABLE 


506 sERROR 5 

507 001230 014247 EMS - gWORD COUNT ER ON ‘DATI' 

508 001232 015633 DH) sERRPC BUSADR EXPCT RCVD 
509 001234 015734 DT] sSERRPC SBDADR S$GDDAT S$B8DDAT 
319 001256 000000 0 

512 sERROR 6 

513 001240 014317 EM6 ;BUFFER ADRS ER ON 'DATI' 

514 001242 015633 DH1 sERRPC BUSADR EXPCT RCVD 
515 001244 015734 DT1 sSERRPC SBDADR S$GDDAT S$BDDAT 
318 001246 000000 0 

518 sERROR 7 

519 001250 014370 EM7 sFAILED TO INTR ON A ‘DATO’ 
520 001252 015633 DH1 sERRPC BUSADR EXPCT RCVD 
521 001254 015734 DT1 7SERRPC SBDADR $GDDAT S$BDDAT 
522 001256 000000 0 

523 sERROR 10 

524 001260 014442 EM10 :STATUS ER ON ‘DATO’ 

525 001262 015633 DH1 sERRPC BUSADR EXPCT RCVD 
526 001264 015734 DT1 sSERRPC SBDADR $GDDAT S$BDDAT 
34 001266 000000 0 

529 sERROR 11 

530 001270 014505 —EM11 ;WORD COUNT ER ON ‘DATO* 

531 001272 015633 DH1 sERRPC BUSADR EXPCT RCVD 
532 001274 015734 DT1 sSERRPC $BDADR S$GDDAT S$BDDAT 
tt 001276 000000 0 

535 sERROR 12 

536 001300 014554 EM12 ;BUFFER ADRS ER ON ‘DATO’ 

537 001302 015633 DH1 sERRPC BUSADR EXPCT RCVD 
538 001304 015734 DT1 sSERRPC S$BDADR $GDDAT S$BDDAT 
$44 001306 000000 0 ; 
541 sERROR 13 

542 001310 014624 EM15 sDATA ER ON ‘DATO’ 

543 001312 015670 DH2 sERRPC MEMADR EXPCT RCVD 
544 001314 015734 0T1 sSERRPC SBDADR S$GDDAT S$BDDAT 
545 001316 000000 0 

546 

547 sERROR 14 

548 001320 014665 EM14 ;CSR READY BIT WAS SET =- SHOULD BE CLEAR 
549 001322 015633 DH1 

550 001324 015734 DT1 

551 001326 000000 0 

552 

553 

554 sERROR 15 

555 001330 014753 —EM15 sPROTOCOL INITIALIZATION ERROR -MASTER AND SLAVE 
556 001332 015725 DH3 

557 001334 015746 DT2 

ses 001336 000000 0 

560 sERROR 16 

561 001340 015075 EM16 sSTUCK FOREVER WAITING FOR COMF/NION 
562 001342 015725 DH3 
















563 001344 
564 001346 
565 


566 
567 001350 
568 001352 
569 001354 
570 001356 


7 
7 
7 
7 
7 
7 


OUWFwr 
So 
oO 
— 
™Nm 


001366 


PAPAS 
— 


~ 
~ 


578 

579 001370 
580 001372 
581 001374 
582 001376 


585 001400 


001406 





CZDRKAO DR11-W INTRPROC EXER 
ERROR POINTER TABLE 


000000 


MACRO M1111 


D013 
0 


;ERROR 17 
EMI7 


DH3 
D12 
0 


ERROR 20 
EM20 


DH3 
DT2 
0 


sERROR 21 
EM21 


ERROR 22 


dD 2 
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; TIMEOUT ERROR BURST MODE XFER-INCURRED INTERRUPT 


SLAVE DID NOT INTERRUPT MASTER 


; TEST 2-ERROR BIT SET IN MASTER 


;BURST DATA LATE BIT IN EIR NOT 





SET 


a < 





594 
595 
596 001410 
597 
598 
599 
600 001412 
601 
602 
603 
604 001414 
605 001416 


606 001420 
607 001422 
608 


609 


610 
611 001424 
612 001426 
613 
614 
615 
616 001430 
617 001432 
618 001434 
619 001436 
620 001440 


626 001454 
627 001456 
628 001460 
629 001462 
$30 001464 
631 001466 
632 001470 
633 

634 001472 
635 001474 
os 001476 


6 

638 001500 
639 001502 
640 001504 
641 


CZORKAO DR11-W INTRPROC EXER 
ERROR POINTER TABLE 


172410 


000124 


172410 
172412 
172414 
172416 


000124 
000126 


000000 


000113 


177773 
015756 
000501 


177766 
015756 
000103 


MACRO M1111 






E 
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; BASE REGISTER ADDRESS ASSIGNMENT 


INTADR: 172410 


;MODIFY THIS LOC IF DIFFERENT 


; VECTOR ADDRESS ASSIGNMENT 


DRVECT: 124 sMODIFY THIS LOC IF DIFFERENT 
; BUS REGISTER ADDRESS POINTERS 

wCR: 172410 ;WORD COUNT 

BAR: 172412 sBUFFER ADDRESS 

CSR: 172414 ; COMMAND/STATUS 

BDR: 172416 sBUFFER DATA REGISTER 

; VECTOR ADDRESS POINTERS 

DRVCTO: 124 ;READY & NEX VECTOR 

DRVCT2: 126 ;NEW PSW ON INTR 


;COMMON PROGRAM LOCATION(S) 


XMITMO: 


RCVIMO: 


—-OOOCCOCCOCOCCO 


;DESCRIBES BOARD TYPE:DR11W OR DRV11B 
; TIMER FOR ABORTING PROGRAM 
;USED TO DETERMINE BOARD TYPE 
;GENERAL PURPOSE COUNTER 
REG DATA SAVED HERE 
;O0=MASTER START - NON-ZERO=SLAVE START 
:# OF TIMES TO REPEAT ALL TESTS BEFORE 
-32. ;XMIT WORD COUNT 
DBUF :XM1T BUFFER ADRS 
511 >XMI1T STATUS/CONTROL 
-32. :RCV WORD COUNT 
DBUF ;RCV BUFFER ADRS 
113 RCV STATUS/CONTROL 
:XMIT BURST DATA LATE TEST. 
DBUF 
501 
o, RCV BURST DATA LATE TEST 
U 
3 


END PASS MSG 





CZDRKAO 
PROGRAM 


DR11-w 
START 

001506 
001512 
001514 
001522 
001522 


001536 
001542 
001550 
001556 
001564 
001572 
001600 


001606 


001642 
001644 


001742 


001744 
001750 
001752 


001756 


001774 


INTRPROC EXER 


005037 
000403 
012737 


012706 
005026 


On a as es 


001372 


005227 
001041 
104401 


005737 


104406 


001452 
177777 


001100 
001140 
001100 
012452 


000340 


000004 
001646 
177570 
177570 
177777 


001654 
000176 
000174 
000004 
001414 
001410 


000002 
001424 


001424 
001412 


000002 
001430 


177777 
002010 
000042 
001140 


MACRO M1111 


001452 


000020 


000034 
000036 


000004 
001140 
001142 
177276 


001140 
001142 


000176 


START: CL 


START2: 


START: 
-SBTTL 


#STACK 
ss INITIALIZE A FEW VECTORS 


MOV 
::S1ZE FOR A HARDWARE SWITCH REGISTER. 


;;EQUAL TO A ‘'=1"", SETUP FOR A SOFTWARE SWITCH REGISTER. 


64$: 
65$: 
66$: 


SETUP2: 


SETUPS: 


BR 
MOV 


-. 
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-SBTTL PROGRAM START 
R MSTER 


START 
#-1, ASTER 


THIS 17 MASTER START 
;SKIP NEXT 
;SLAVE START 


INITIALIZE THE COMMON TAGS 
;;CLEAR THE COMMON TAGS (SCMTAG) AREA 


MOV a#ERRVEC,-(SP) 

MOV #64$, a#ERRVEC 

MOV #DSWR, SWR 

MOV #ODISP DISPLAY 
CMP #-1,aSW 

BNE 66$ 

BR 65$ 

MOV #65$, (SP) 

RTI 

MOV #SWREG, SWR 

MOV #DISPREG, DISPLAY 

MOV (SP)+,a#ERRVEC 

MOV WWOR,RO ;SET UP 

MOV INTADR,R1 

MOV R1,(RO)+ 

ADD #2,R1 

CMP #BDR+2,R0 

BNE SETUP2 

MOV #ORVCTO,RO 

MOV DRVECT,R1 

MOV R1,(RO)+ 

ADD #2,R1 

CMP #DRVCT2+2,R0 
NE SETUPS 


#SCMTAG,R6 


(R6)+ 
~ ois ; DONE? 


SP 


;:FIRST LOCATION TO BE CLEARED 
;;CLEAR MEMORY LOCATION 


;;LOOP BACK IF NO 
;;SETUP THE STACK POINTER 


#SSCOPE ,a#1OTVEC Ah VECTOR FOR SCOPE ROUTINE 
#340 ,a#1OTVEC+2 ;;LEVEL 7 

WSERROR ,AWEMTVEC ; ;EMT VECTOR FOR ERROR ROUTINE 
#340 ,QMEMTVEC+2 ;;LEVEL 7 

WSTRAP ,A#TRAPVEC :; TRAP VECTOR FOR TRAP CALLS 
#340 a#TRAPVEC+2;LEVEL 7 


B 
TYPE PROGRAM NAME 


IF NOT FOUND OR IT IS 


3;SAVE ERROR VECTOR 

;;SET UP ERROR VECTOR 

;;SETUP FOR A HARDWARE SWICH REGISTER 
;:AND A HARDWARE DISPLAY REGISTER 
;:TRY TO REFERENCE HARDWARE SWR 
;;BRANCH IF NO TIMEOUT TRAP OCCURRED 
;;AND THE HARDWARE SWR IS NOT = -1 
;;BRANCH IF NO TIMEOUT 

:;SET UP FOR TRAP RETURN 


;:;POINT TO SOFTWARE SwWR 
; RESTORE ERROR VECTOR 


REG ADRS POINTERS 


;GET BASE ADRS 
;LOAD EM 


;ALL DONE? 

;BR IF NOT 

;SET UP VECTOR ADRS POINTER 
;GET BASE VECTOR ADRS 


“ALL DONE? 
“BR IF NOT 


~ SBTTL 
TYPE THE NAME PROGRAM IF Siett PASS 


~ SBITL 


INC 
ee 


TYPE 65$ YP 
VALUE By, SOF TWARE suiten REGISTER 
TST 


BNE 


CMP 


BNE 


GTSWR 


64% 


es 
SWR,#SWREG 
67% 


FIRST TIME? 
: BRANCH IF NO 
E ASCIZ STRING 


; ARE WE RUNNING UNDER XXDP/ACT? 
;BRANCH IF YES 
: + SOFTWARE SWITCH REG SELECTED? 
RANCH IF NO 
SIGET SOFT-SwWR SETTINGS 


SEQ 0018 





CZDRKAO DRii-wW INTRPROC EXER 
GET VALUE FOR SOFTWARE SWITCH REGISTER 





001776 
002000 
002006 
002006 


002054 
662 002054 


000403 
112737 000001 
000422 


000240 


001134 


MACRO M1111 


66$: 
67$: 


37658: 
64$: 


BR 
MOVB 
BR 
-ASCI2 
NOP 


G 2 
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67% 
#1, SAUTOB >;SET AUTO-MODE INDICATOR 


64% GET OVER THE ASCIZ 
<CRLF>#DR11W INTERPROCESSOR EXERCISER #<CRLF> 





CZDRKAO DR1l-wW INTRPROC EXER MACRO M1111 24-AUG-/9 
BOARD TYPE DIALOGUE 
664 -SBTTL 
665 002056 BRDTYP: 
666 002056 012706 001100 
667 002062 000005 RESET 
668 002064 012737 ooooe 001454 MOV 
669 002072 005227 177777 INC 
670 002076 001402 BEQ 
671 002100 000137 002524 JMP 
672 002104 5$: 
002104 104401 002112 TYPE 
002110 0004625 BR 
:°658: .ASEIZ 
002164 64$: 
673 002164 104401 002172 TYPE 
002170 000411 BR 
33678: .ASCIZ 
002214 66$: 
674 002214 104410 RDCHR 
675 002216 021627 000120 2$: CMP 
676 002222 001051 BNE 
677 002224 012737 000126 001434 MOV 
678 002232 104401 002240 TYPE 
002236 000411 BR 
3369$: .ASCIZ 
002262 68$: 
679 002262 104401 002270 TYPE 
002266 000426 BR 
33718: .ASCIZ 
002344 708: 
680 002344 000576 Ba 
681 002346 021627 000127 3$: CMP 
682 002352 001414 e BEQ 
683 002354 104401 002362 TYPE 
002360 000410 BR 
33738 -ASCIZ 
002402 
684 002402 000640 GR 
685 002404 012737 000127 001434 6$: MOV 
686 002412 104401 002420 TYPE 
002416 000410 BR 
3375$: .ASCI2Z 
002440 74%: 
687 002440 104401 002446 TYPE 
002444 000426 BR 
°;77$: .ASCIZ 
002522 76%: 
688 002522 000507 Be 
689 002524 MORS: 
690 002524 022737 000126 001434 4$: CMP 
691 002532 001403 BEQ 
692 002534 104401 002645 TYPE 
693 002540 000500 BR 
694 002542 104401 002550 16$: TYPE 
695 002546 000475 R 
696 002550 0 200 040 8$ ASCI1 


002556 061 061 102 


H 2 
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BOARD TYPE DIALOGUE 


#STACK,SP sALWAYS RESET STACK PTR 

INITIALIZE BEFORE TESTING 
#1, 1 COUNT 71ST TIME DO ALL TEST ONCE - THEN 100(10) 
is ;DETERMINE BOARD TYPE ON FIRST PASS ONLY 
MORS 
,605$ +e TYPE ASCIZ STRING 


64% ;GET OVER THE ASCIZ 
<CRLF>/IS THIS CPU TESTING A DRV11B OR DR11W?/<CRLF> 


,67% TYPE ASCIZ STRING 
66$ 3:GET OVER THE ASCIZ 
/TYPE V OR Ww: / 


(SP) ,#126 
3$ 
#126,BOARD 
69% sTYPE ASCIZ STRING 
68% sGET OVER THE ASCIZ 
7V/<CRLF><CRLF>/DRV1IB BOARD/<CRLF> 
, i$ ii TYPE ASCIZ STRING 
70$ GET OVER THE ASCI2Z 
/INTERPROCESSOR LINK NOW IN PROGRESS..... /<CRLF><CRLF > 
SYNCS] 
(SP) ,#127 
6$ 
,73$ 3: TYPE ASCIZ STRING 
72% :;GET OVER THE ASC1Z 
7ERROR IN ENTRY/ 
5$ , 
#127,BOARD 
,15$ ii TYPE ASC1Z STRING 
74% :GET OVER THE ASCIZ 
/W/<CRLFE><CRLF>/DR1 1 BOARD/<CRLF > 
tt? bby ASCIZ STRING 
76$ ;GET OVER THE ASCIZ 
/INTERPROCESSOR LINK NOW IN PROGRESS..... /<CRLF><CRLF > 
SYNCST 
#126, BOARD 
16% 
.7$ 
15% 
,8$ 
15$ 


<CRLF><CRLF>/ DRV11B BOARD/<CRLF> 


SEQ 0020 





CZDRKAO DR1i-W INTRPROC EXER 
BOARD TYPE DIALOGUE 


002561 


0 
697 


0 
698 
699 

0 


700 
0 


701 
702 


009740 


— —s — ss ss ss as 
MmMON——— —S  ONO— 
WN] NWSE SIN 


el el el ee ee ee ee 
MON] ]]=]==0N0— 
UNO —] NWE NU 


— — ef [© —* A a at OE Ow os os oe 
o—-NMNO OWN NM — — & a NN Ss A/T O 
OAWNNENOKNMWNNO Nr 


WNNANO—-NVWNNRO LFNNNRO 


et Bt et ets ot os os 
MMM FHS NNW wm 


ro 
ou 
oo 


000 


MACRO M1111 


_—— OO + Om es 
Fe SS FNMONN O— 
YVINOOSACOUNOfL FN 


oO 


o--—-00—-—0 
Wmoe Ff aS 
DANDOAAO 


ro 
ou 
oo 
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«ASCII 


eASCIZ 
-ASCI1 


ASCII 


-ASCIZ 


7INTERPROCESSOP LINK NOW IN PROGRESS..... 


/f 
<CRLF><CRLF>/ DR11W BOARD /<CRLF> 


/INTERPROCESSOR LINK NOW IN PROGRESS..... 


/ 


/ 





/<CRLF ><CRLF ><CRLF > 


/<CRLF ><CRLF ><CRLF > 


SEQ 0021 





CZDRKAO DR1i-w INTRPROC EXER 


707 002742 
708 002742 
709 002746 
710 002752 
711 002754 


J 2 
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START AS MASTER? 
YES = GO SEND TO SLAVE .. — ECHO 
;NO - GO ECHO MASTER'S DAT 


K 2 
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SEQ 0023 





713 sMASTER PROTOCOL INIT-TEST 1 
714 sy eterereererereeeereeereeeteneeteeeeeeeKteneenetererenteerereeee 
715 
716 002760 032777 020000 176432 MINIT: BIT #B1T13,aCSR 
717 002766 001425 BEQ 1$ 
718 002770 164491 002776 TYPE ,65$ 3; TYPE ASCIZ STRING 

902774 000421 BR 64% ;;GET OVER THE ASCIZ 

Fe mg eASCIZ <CRLF>/CABLE 1S NOT INSERTED = HALTING / 

719 003040 000000 HALT 
720 003042 004737 013576 18: JSR PC, CPUH] 
721 003046 012706 001100 MOV #STACK,SP 
722 003052 005077 176342 CLR aCsR 
723 003056 012737 001000 001444 MOV #1000, TIME 
724 003 032777 001000 176326 2%: BIT #1000, aCSR HAS SLAVE SET MASTER DSTATC 
725 003072 001005 BNE MTST1 
726 003074 005337 001444 DEC TIME 
727 003100 001371 BNE 2$ 
728 003102 104015 104000+15 
729 003104 104412 RSYNC 


CZDRKAO DR11-W INTRPROC EXER 


* ATSTI 


003222 


004737 


177776 


001444 
001124 


177001 
015502 
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TEST THAT SLAVE CAN ECHO THE DBR CORRECTLY 


001122 
001126 
001444 


001126 


176200 


-SBTTL * MISTI TEST THAT SLAVE CAN ECHO THE DBR CORRECTLY 


ppeeeeereeerrerererereerereeeerereeereererereeeeeeeAeeeeeteteeeee 
sp eeeeeeereerereerrerrereerereeeeeereeeeeeeKeeeeeeeeeeeeereTetete 
sMASTCR COMPUTER STARTS HERE FROM PROGRAM START 
31T SENDS OUT SINGLE WORDS (FLOATING 1/0 PTRN) THRU THE 
;DBR TO THE SLAVE COMPUTER 
iI] LOOKS FOR THE SLAVE TO ECHO THE DBR WORD CORRECTLY 
WITHIN A CERTIAN AMOUNT OF TIME 
‘IF IT FAILS TO RETURN THE WORD AN ERROR 1S REPORTED 
:THIS TEST 1S NOT EXITED UNTIL ALL DATA PATTERNS HAVE 
;BEEN SENT AND RECEIVED CORRECTLY 


:;eeeeeerererererrerererereererererereeeKeAKeeeeeeteeeeRereeeeeee 

s eeeeeerereeeeerererereereteerereeeeeeeeeeeeeeeeeeeeeeeeeT Eee Eee 

TST1: 

$: CLR R1 7R1 SAYS FLOAT 0 LEFT WHEN ZERO 
MOV #-2,R0 START WITH #177776 IN RO 

23: MOV RO,@BDR ;SEND PATTERN OUT 

JSR PC ,GOCMPN ;TELL SLAVE TO PROCEED 

MOV RO,$GDDAT SAVE IN EXPECTED 

MOV BDR,SBDADR ;SET UP DBR ADRS 

JSR PC ,WICMPN :WAIT FOR SLAVE TO ECHO DATA 

MOV @BDR ,SBDDAT ;READ IT BACK 


" 
1 


MOV #1000, TIME ; DELAY 
3$: DEC TIME 
BNE 3$ 
CMP $SGDDAT,$BDDAT ;CORRECT? 
4$ :BR IF SO 


BEQ 
104000+1 
RSYNC RSYNC ON ERROR 


4$: COM RO ;CONVERT PTRN TO FLOATING 1 
COM R1 ; TIME TO FLOAT LEFT? 
BNE 2$ :BR IF NOT 
ASL RO YES - FLOAT LEFT 
INC RO KEEP LSB SET 
BCS et ;BR IF ZERO NOT TO CARRY YET 


MOV #177001 ,aBDR ; TELL SLAVE TO GO TO NEXT TEST 
JSR PC ,GOCMPN 


;TELL SLAVE TO READ TEST TERMINATOR 


SEQ 0024 


774 


800 003434 
801 003442 
802 003450 
803 003454 
804 003456 
805 003460 





104412 
004737 


001375 
005077 








ant ie INTRPROC EXER 


001000 
001444 


176152 


100009 


003462 


000002 
176034 


001446 


176002 
000002 


001444 


011200 
002000 


000000 
001000 
001444 


175674 


MACRO M1111 
MISTI TEST THAT SLAVE CAN ECHO THE DBR CORRECTLY 


sMASTER PROTOCOL INIT-TEST2 


061444 AiNIT2: MOV 


001446 


176042 


001446 
001446 
001446 
176010 


001446 
001446 
001446 


175756 
001444 


175724 
175714 
001444 


» SBTTL 
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* TEST THAT SLAVE CAN INTERRUPT MASTER: 





, eeeeeererereererrerererererietereetekeReeeeeeeeeeeeeneneeeeeee 


4$: 


5$: 
3$: 


B 
104000+20 
RSYNC 
RTRN: 
$: 


2$: 


DEC 





#1000, TIME 
TIME 
1$ 


acsr, TEMP 

#177775, TEMP 

TEMP, aCSR 

#100000,acsR 
4 


#RTRN,QDRVCTO 


#340 ,aDRVCT2 


#101, TEMP 
TEMP ,aCSR 
Sasa 


4 

acSR, TEMP 
#2, TEMP 
#B1T15, TEMP 
TEMP ,aCSR 
5$ 


acsR, TEMP 
#2, TEMP 
#B1T15, TEMP 
TEMP ,aCSR 
#10000, TIME 
a 


PC RSTVEC 
+ ramteaaaas 


#0,aCSR 
(SP)+,(SP)+ 
#1000, TIME 
TIME 

2$ 


aBDR 


;WAIT FOR SLAVE TO CLEAR 


;CLEAR ALL BUT Fl 
31S ERROR BIT CLEAR 
RSYNC ON ERROR 
DEFINE RETURN 
ALLOW CPU INTERRUPT 


:1€,60 
;TELL SLAVE TO INTERRUPT MASTER 


:DELAY;WAIT FOR SLAVE TO INTERRUPT 


s;RESYNC ON ERROR 


71S ATIN CLR? 


MAKE SURE DSTATC OF SLAVE IS CLR 
READJUST STACK 
; DELAY 





F2(SLAVE) TO ATTN(MASTER) 


SEQ 0025 
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* MIST2 TEST THAT SLAVE CAN ECHO THE ‘STAT’ BITS CORRECTLY SEQ 0026 


818 .SBTTL © MTST2 TEST THAT SLAVE CAN ECHO THE "STAT’ BITS CORRECTLY 
819 ppeeeeeeerereererrerereereereeeeeereeeeeerteeeeeeeeeeeeeeeeee Eee 
820 ppeeeerereeereereeerertereeeereettetereneReAeAeeeeeeKeneeReAATee 
821 sMASTER SENDS OUT A ‘FNCT’ CODE (1-7) TO THE SLAVE COMPUTER 

822 ;THE MASTER THEN LOOKS FOR THE SLAVE TO ECHO THE CODE VIA THE 

823 :'STAT' BITS WITHIN A CERTIAN AMOUNT OF TIME 

824 :1F IT FAILS TO RETURN THE CORRECT CODE AN ERROR IS REPORTED 

825 sTHIS TEST IS NOT EXITED UNTIL ALL ‘FNCT’ CODES HAVE BEEN 

826 :SENT AND RECEIVED CORRECTLY 

827 ppeeeeeeeerererrerereeereererererereeereeeeeeeeeeeeeeeeeeeeE eee 
828 ppeteewererererreeerereerererereeeTereeeeKeeReee eee eee 
829 003526 MTST2: 


830 003526 013737 001420 001122 MOV CSR, $BDADR ;SET UP CSR ADRS 
831 003534 012700 000002 MOV #2, ;SET UP INITIAL FNCT BIT COUNT 
832 003540 012737 001202 001124 MOV #1202 ,$GDDAT LD EXPECETD 
833 003546 010077 175646 1$: MOV RO,aCSR ;LOAD FNCT BITS 
834 003552 004737 013414 JSR PC ,WICMPN ;LOOK FOR SLAVE TO ECHO VIA ‘STAT’ BITS 
835 003556 012737 001000 001444 MOV #1000, TIME ;DELAY 
003564 005337 001444 2s: DEC TIME 
837 003570 001375 BNE 2$ 
838 003572 017737 175622 001126 MOV aCSR,$BDDAT ;READ CSR 
839 003600 033737 001124 001126 BIT S$GDDAT,$BDDAT  ;CORRECT? ° 
840 003606 001002 BNE 3$ ;BR IF SO 
841 003610 104002 104000+2 
842 003612 104412 RS ;RSYNC ON ERROR 
843 003614 062737 001002 001124 3%: ADD * #1002,$GDDAT ; ADVANCE EXPECTED 
844 003622 062700 000002 £¢ 2 AQD #2,R0 ;ADVANCE PTRN 
845 003626 032700 000020 . ‘ -** egB1T #20,R0 ;ALL BEEN DONE? 
846 003632 001745 BEQ 1$ 7BR IF NOT 
847 003634 012777 177002 175560 MOV #177002 ,aBDR TELL SLAVE TO GO TO NEXT TEST 
848 003642 004737 013502 JSR PC ,GOCMPN :GO TO COMPANION 
003646 004737 013414 PC ,WICMPN ;WAIT FOR COMPANION 








869 003714 
870 003722 
871 

872 003730 
873 003732 
87 736 


907 004166 
908 004170 


CZORKAO DR11-W INTRPROC 
* MISTS BLOCK MODE WORD 


013777 
032777 


001774 


B 3 oe 
EXER MACRO M1111 24-AUG-79 14:19 PAGE 17 
XFER-MASTER XMITS 32 WORDS TO SLAVE SEQ 0027 


-SBTTL * MTST3 BLOCK MODE WORD XFER-MASTER XMITS 32 WORDS TO SLAVE 
ppeeeeeeeeereererereeeereeerereeeereerereReeeeeeeeeeeeteeeeeeeees 
sp eeeeerereeeerererereeeererereeeeereeeeeAeneeeeeeeeeeeReeeeeTeee 
sMASTER XMITS A 32 WORD BLOCK OF DATA TO SLAVE 

; THEN CHECKS FOR PROPER INTERRUPT STATUS, WC & BA 

+ THE SLAVE CHECKS THE SAME PLUS THE DATA RECEIVED 


; 'MARBBABAABAABAALAAAAAAAAALASASASALAASAAAASASSASESRSRRRRRAR RRA SRS ARES | 


,eerererererekereretereeeererereretereeeeteeeKereeeeeteterereees 


| 
hist3: 
013576 18: JSR PC,CPUHI ;NO INTR ALLOWED YET 
175536 41$: CLR acsr 
000200 175530 cH #200,4CSR ;1$ ONLY READY SET | 
| 
175522 001446 38%: MOV acsR, TEMP 
100000 001446 BIC #B1T15, TEMP 
000002 001446 BIS #2, TEMP ;SET DSTATC IN SLAVE | 
:TELLS SLAVE TO SETUP FOR XFERS 
001446 175476 MOV TEMP ,aCSR 
001000 175470 40%: BIT #1000,aCSR ;DSTATC HERE SAYS SLAVE 
:1S READY TO DO XFERS 
BEQ 408 
011160 378: JSR RS, SETVEC ;SET UP INTR RETURN ADRS | 
3$ ;RETURN TO 3$ ON INTR 
011236 JSR RS, LDBUF ;G0 LOAD 'DBUF' WITH DATA PTRN 
-32. 700 32. LOCATIONS 
010000 001444 MOV #10000, TIME :SET UP A TIMER VALUE 
001456 175432 MOV XPRAM,aWCR ;SET UP WORD COUNT 
001460 175426 MOV XPRAM+2,aBAR  :SET UP BUFFER ADRS 
013624 JSR PC,CPULO ALLOW THE RDY INTR 
175420 001446 MOY acsR, TEMP 
100000 001446 BIC #B1T15, TEMP | 
000010 001446 BIS #10, TEMP ;SINGLE CYCLE 
001446 175374 MOV TEMP ,aCSR 
175370 001446 MOV acsR, TEMP 
100000 001446 BIC WB1T15, TEMP | 
000002 001446 BIC #2, TEMP 
001446 175344 MOV TEMP ,aCSR | 
001462 175336 MOV XPRAM+4,aCSR  ; SET UP CONTROL - IE, FNCT 3 & GO,AND CYCLE 
001444 2$: DEC TIME ;WAIT FOR INTR | 
BNE 2$ UNTIL 0 
175324 001126 MOV aCSR,$BDDAT ZREAD CSR - SHOULD NEVER GET HERE 
175316 001446 MOV acsR, TEMP 
100000 001446 BIC #B1T15, TEMP 
000500 001446 BIC #500, TEMP ;DISABLE IE & CYCLEC(IF THIS IS | 
;A DRVIIB: CYCLE HIGH WILL 
:PREVENT BDR FROM BEING READ) 
001446 175272 MOV TEMP ,aCSR 
000127 001434 CHP #127 BOARD s1F DRI1W:CYCLE WILL BE CLEAR | 
Q 
005710 001124 MOV #5710, $GDDAT :LD EXPECTED - STAT A&C, CYCLE, RDY, IE, FNCT 3 | 
;MUST BE DRV11B 
Be 46$ 
005310 001124 45%: MOV #5310, $GDDAT :STAT ARC, RDY le, FNCT 3 | 
001420 001122 46$: MOV CSR, $BDADR :SET UP CSR ADRS | 
015516 TYPE ,MSG1 
104000+3 
Be 6$ :GO RESYNC ON ERROR 





3 
S 
e 


OOOOOOOOOO00O 
RDI wet es et et at Un ot ot 
—"SOVOONOUVSWN—O 

oo ooooooo 
See Pererere 


939 004362 
940 004370 
941 004376 
942 004404 
943 004406 
944 004414 
945 004420 
946 


CZORKAO DR11-W INTRPROC 
* MISTS BLOCK MODE WORD 


104401 
104006 


MACRO M1111 


001126 


001434 
001124 


001124 
001126 
001122 


001126 
001122 


001124 


001126 
001126 
001126 


001122 


3$: CMP 


318: MOV 
308: 


TYPE 
104C000+4 
BR 


4$: CLR 


TYPE 
104000+5 
BR 


5$: MOV 


T 
104000+6 





com 
24-AUG-79 14:19 PAGE 17-1 
XFER-MASTER XMITS 32 WORDS TO SLAVE 


(SP)+, (SP)4 
aCSR,$BDDAT 


acSR. TEMP 
#81115, TEMP 
#500, TEMP 
TEMP. aCSR 
#127, BOARD 


#5710, $GDDAT 


30$ 

#5310, $GDDAT 
SGDDAT , SBDDAT 
4$ 

CSR, $BDADR 
MSG1 


6$ 

$GDDAT 

awWCR,$BDDAT 

5$ 

WCR,$BDADR 
$G1 


’ 


$ 

XPRAM+2 ,$GDDAT 
XPRAM,RO 

RO 


RO 

RO, SGDDAT 
@BAR ,SBDDAT 
#B81T00,$BDDAT 
penOn, SERS 


8 
BAR , S$BDADR 
G1 





sFIX STACK SINCE NO RTI 


;READ STATUS 


sDISABLE IE & CYCLE(CLR CYCLE IF THIS IS A DRV11B) 


;LD EXPECTED - STAT A&C, CYCLE, ROY, IE, FNCT 3 


;MUST BE DRV11B 


; CORRECT? 
:BR IF SO 
SET UP CSR ADRS 


3GO0 RESYNC ON ER 
;LD EXPECTED wC 
READ WORD COUNT 
:BR_ IF ZERO 
;SET UP WCR ADRS 


:GO RESYNC ON ER 


;GET STARTING ADRS OF XFER 


;GET wC 
GET ACTUAL # 
;CONVERT TO WORD 


;ADD TO BASE ADRS 


;READ BAR ADRS 
sELIMINATE LSB 
; CORRECT? 
:BR IF SO 
;SET UP BAR ADRS 


948 
949 
950 004422 


956 004454 
957 

958 004456 
959 004464 
960 004466 


4.84 004544 


CZDRKAO DR11-W INTRPROC 
* MTST3 BLOCK MODE WORD 


001404 
022737 


004737 


EXER 


001000 


010000 
001444 


000002 
174702 
170777 


001000 


011200 


dD 3 
MACRO M1111. 24-AUG-79 14:19 PAGE 18 
KFER-MASTER XMITS 32 WORDS TO SLAVE 


001444 


001450 
001450 


001450 


001444 


174706 
001450 
001450 


001450 


6$: 
7$: 


218: 


238: 
248: 


8$: 


208: 


9$: 


o— 
we 


sERROR IN MASTER-WAIT ON SLAVE FOR ITS STATUS 


MOV #10000, TIME :WAIT FOR SLAVE TO COMPLETE DATA CK 
DEC TIME =COUNT AWAY 
BNE 7$ SUNTIL DONE 
RESET ‘TELL SLAVE WE HAVE AN ERROR 
MOV aCSR, SAVE 
BIC #170777, SAVE 
BEQ 24$ 
CMP #1000, SAVE 

- BNE 21$ 
RSYNC =RSYNC ON ERROR 
:NO ERROR IN MASTER-WAIT ON SLAVE FOR ITS STATUS 
MOV #10000, TIME :WAIT FQR SLAVE TO COMPLETE CKS 
DEC TIME [COUNT AWAY 
BNE 208 [UNTIL DONE 
MOVB #2,aCSR ‘TELL SLAVE ALL OK 
MOV aCSR, SAVE [READ CSR 
BIC #170777,SAVE SAVE ‘STAT’ BITS 
BEQ 11$ ‘WAS THERE AN ERROR? 
CMP #1000, SAVE =NO ERROR? 
BEQ 10$ 
BR 9$ 
RSYNC =RSYNC ON ERROR 
JSR PC RSTVEC 7GQ RESTORE VECTOR 


004572 
004576 
004602 


996 004606 
997 004610 
998 004614 


012737 


013777 


004737 
004737 
005777 


001402 
000137 
000137 


CZORKAO DR1i-W INTRPROC EXER 


001000 
001444 


001434 
013502 


013414 
174614 


004620 
006072 


MACRO M1111 


001444 — MOV 


174630 


2$: 
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* MISTS BLOCK MODE WORD XFER-MASTER XMITS 32 WORDS TO SLAVE 


;BE DONE. 


;BURST MODE TESTING DETERMINATION 


;ypeeeeearerererereeeererereeeeeeereeAReeeeeeereneeeeeteeteerenese 


DETERMINE IF BURST XFERS AND BURST DATA LATE ARE 


;ARE BOTH DR11wW'S. 
;AND MASTER SLAVE AND TESTS 1 THRU 3 WILL BE DONE AGAIN. 


PLR RARER EATER AAA AAA AAA! eee 


#1000, TIME 
TIME 


1$ 
BOARD ,aBDR 


PC ,GOCMPN 
PC ,WICMPN 
aBDR 


2$ 
MTST4 
SINIT1 


TEST WILL BE DONE ONLY IF BOTH MASTER AND SLAVE 


OTHERWISE ,SLAVE WILL BECOME MASTER 


;WAIT FOR SLAVE 


; TELL SLAVE WHAT BOARD 

TYPE MASTER 1S 

; TELL SLAVE TO RESPOND 

;WAIT FOR SLAVE TO EVALUATE 

; SLAVE RESPONDS AND MASTER CAN 
:FIND OUT IF TEST & SHOULD BE DONE 
30 SAYS NO 

;YES;D0 TEST 4 


SEQ 0050 






CZDRKAO DR11-W INTRPROC 
* MTST4 SURST MODE WORD 
























004620 004737 


004654 052737 


004662 013777 
004670 032777 


004676 001774 


ODONAVLWNM —OOONOUFS NNO” 


ee ee ee ee 
PORIPINIPINIPY NPN - 2 = OS OO ot 


olofofolololeojolelojoleololololeleloelelolo) 


w 
So 
3 
IN 
Ww 
o 
S 
So 
= 
™“N 
w 
™N 


005146 


EXER 


ee 
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XFER-MASTER XMITS 32 WORDS TO SLAVE 
-SBTTL * MTST4 BURST MODE WORD XFER-MASTER XMITS 32 WORDS TO SLAVE 


013576 
174570 
000200 
174554 
100000 
000002 
001446 
001000 
011160 
011236 


010000 


001444 
174406 


015550 


174322 


001446 
001300 


001124 
001420 


174562 


001446 
001446 
001446 


174530 
174522 


001444 
174464 
174460 


001446 
001446 
001446 
174426 
174420 


001126 
001446 
001446 
001446 
174354 
001124 
001122 


001126 


001124 
001126 
001122 


-SBTTL 


(DR11-W TO DR11-W ONLY) 


s eeeeeeeeeeeeeeeereeetererrereeereteeeeeeeeeeereAOKeeeKeTerere 
Lp eeeeeeeererereneeereteeeeererereeeereeeeAeeeeteeeeeeeeeeteeete 
>SAME AS TEST 3 EXCEPT BURST MODE:BOARD DOES NOT RELEASE BUS 

;UNTIL WORD COUNT OVERFLOW 


Ss; eeeeeeeeeeeereeeretererererrrererereeeKeKeKeKeteKeKeeKeRteKeees 
sp eeeeeeeerereeeeerereeeeeereeerereetteereeKeeeAeeeeReKKeReeeAeees 


MTST4: 
1$: JSR 
41$: CLR 


38$: MOV 


40$: BIT 


37$: JSR 


2$: DEC 


45$: MOV 
46$: MOV 


TYPE 
104000+3 
BR 


3$: CMP 


31$: MOV 
30$: 


PC, CPUHI 
acsR 
#200,aCSR 
41% 

acSR, TEMP 


#B1T15, TEMP 
#2,TEMP 


TEMP ,aCSR 
#1000,aCSR 


40$ 
R5,SETVEC 
R5,LOBUF 
#10000, TIME 


PC,CPULO 
acsR, TEMP 
#BIT15, TEMP 
#2,TEMP 
TEMP ,aCSR 
#501,aCSR 
TIME 


2$ 
aCSR,$BODAT 
acsR, TEMP 
#B1T15, TEMP 
#100, TEMP 
TEMP ,aCSR 
#1300,$GDDAT 
CSR,$BDADR 
»MSG2 


6$ 
(S$P)+,(SP)+ 
aCSR,$BODAT 
acsR, TEMP 
#B1T15, TEMP 
#100, TEMP 
TEMP ,aCSR 
#1300,$GDDAT 


$GDDAT ,$BDDAT 
4$ 


CSR, $BDADR 


>NO INTR ALLOWED YET 
:1S ONLY READY SET 


SET DSTATC IN SLAVE 
; TELLS SLAVE TO SETUP FOR XFERS 


s;DSTATC HERE SAYS SLAVE 
:1S READY TO DO XFERS 


;SET UP INTR RETURN ADRS 
;RETURN TO 3$ ON INTR 

:GO LOAD ‘DBUF' WITH DATA PTRN 
300 32. LOCATIONS 

;SET UP A TIMER VALUE 

;SET UP WORD COUNT 

;SET UP BUFFER ADRS 

;ALLOW THE RDY INTR 


;SET UP CONTROL - IE, 
sWAIT FOR INTR 

sUNTIL 0 

sREAD CSR - SHOULD NEVER GET HERE 


GO,AND CYCLE 


DISABLE IE 
STAT C,RDY,IE 
;SET UP CSR ADRS 


;GO RESYNC ON ERROR 
sFIX STACK SINCE NO RT] 
;READ STATUS 


DISABLE IE 


CORRECT? 
:BR IF SO 
SET UP CSR ADRS 





SEG 0031 


CZDRKAO DR11-W INTRPROC EXER 


MACRO M1111 
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(DR11-W TO DR11-W ONLY) SEQ 0032 
1058 005154 104401 015550 TYPE »MSG2 
1059 005160 104004 104000+4 
1060 005162 000446 BR 6$ 3;GO RESYNC ON FR 
1061 0051 005037 001124 4$: CLR $GDDAT ;LD EXPECTED we 
1062 005170 017737 174220 001126 MOV awCR,$BDDAT ;READ WORD COUNT 
1063 005176 001407 BEQ $ ;BR IF ZERO 
1064 005200 13737 001414 001122 MOV WCR,SBDADR ;SET UP WCR ADRS 
1065 005206 104401 015550 TYPE -MSG2 , 
1066 005212 104005 104000+5 
1067 005214 000431 BR 6$ 3GO0 RESYNC ON ER 
1068 005216 013737 001460 001124 S$: MOV XPRAM+2,$GDDAT ;:GET STARTING ADRS OF XFER 
1069 005224 013700 001456 MOV XPRAM JRO GET wc 
1070 005230 005400 NEG RO 3GET ACTUAL @ 
1071 005232 006300 ASL RO ; CONVERT TO WORD 
1072 005234 060037 001124 ADD RO, $GDDAT ;ADD TO BASE ADRS 
1073 005240 017737 174152 001126 MOV @BAR ,SBDDAT ;READ BAR ADRS 
1074 005246 042737 000001 001126 BIC #B1T00,$BDDAT sELIMINATE LSB 
1075 005254 023737 001124 001126 CMP $GDDAT ,SBDDAT ; CORRECT? 
1076 005262 001437 BEQ 8$ ;BR IF SO 
1077 005264 013737 001416 001122 MOV BAR ,$BDADR ;SET UP BAR ADRS 
1078 005272 104401 015550 TYPE .MSG2 
1079 005276 104006 104000+6 
1080 
1081 
1082 
toa sERROR IN MASTER-WAIT ON SLAVE FOR ITS STATUS 
1085 005300 012737 010000 001444 6$: MOV #10000, TIME sWAIT FOR SLAVE TO COMPLETE DATA CK 
1086 005306 005337 001444 7$: PEC TIME : COUNT AWAY 
1087 005312 001375 BNE 7$ UNTIL DONE 
1088 005314 000005 RESET :1F ERROR THAN INIT 
1089 005316 012777 000010 174074 MOV #10,aCSR ;TELL SLAVE WE HAVE AN ERROR 
1090 005324 017737 174070 001450 21$: MOV acSR, SAVE 
1091 005332 042737 170777 001450 BIC #170777,SAVE 
1092 005340 022737 005000 001450 CMP #5000,SAVE 
a 005346 001404 BEQ 24% 
1095 005350 022737 004000 001450 23$: CMP #4000,SAVE 
1096 005356 001362 BNE 21$ 
1097 005360 104412 248: RSYNC ;RSYNC ON ERROR 
1098 
1099 
1100 
Hal 3NO ERROR IN MASTER-WAIT ON SLAVE FOR ITS STATUS 
1103 005362 012737 010000 001444 &$: MOV #10000,TIME sWAIT FOR SLAVE TO COMPLETE CKS 
1104 005370 005337 001444 208: DEC TIME >COUNT AWAY 
1105 005374 001375 BNE 208 UNTIL DONE 
1106 005376 012777 000012 174014 MOV #12,aCSR TELL SLAVE ALL OK 
1107 005404 017737 174010 001450 98: MOV acSR, SAVE READ CSR 
1108 005412 042737 170777 001450 BIC #170777,SAVE ;SAVE "STAT BITS 
1109 005420 022737 005000 001450 CMP #5000,SAVE 
1110 005426 001405 r BEQ 10% :1F NO ER, CONTINUE 
1111 005430 022737 004000 001450 CMP #4000,SAVE s ERROR? 
1112 005436 001362 BNE 9$ 
1113 005440 104412 118: RSYNC sRSYNC ON ERROR 
1114 005442 004737 011200 108: JSR PC, ,RSTVEC ;GO RESTORE vECTOR 
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CZDRKAO D 
* MISTS BURST DATA LATE TEST-MASTER XMITS 5 WORDS 10 SLAVE SEQ 0033 
1116 -SBTTL * MISTS BURST DATA LATE TEST-MASTER XMITS 5 WORDS TO SLAVE 
$b -SBITL WHILE SLAVE RECEIVES 5 AND TIMES OUT (DRI1-w TO DR1I1-w ONLY) 
1119 ppeeeeeeeereeerererereeereeeeeereeeteereeteeeeeeKetereeteee Tete 
1120 pp eeeeeeeeeereereeeeereeererreeteeeeeeKeAeeteKeeeeeHeKerereKeneee 
1121 ;PROCEDURE: MASTER XMITS 5 WORDS TO SLAVE IN BURST MODE 
1122 sSLAVE 1S SETUP TO DO 10 XFERS. CHECK THAT MASTER INTERRUPTS 
1123 :BY WCOF. AFTER 5 XFERS ARE DONE IN 
1124 7SLAVE, TIMEOUT OCCURS, SINCE SLAVE WAITS FOR GO-AHEAD 
1125 ;FROM MASTER TO CONTINUE,BUT MASTER NEVER RESPONDS. IN 
1126 ;SLAVE: CHECK THAT 5 XFERS HAVE BEEN COMPLETED. 
1127 pp eeeeeererereteeeetereeeteeeeeeeeteeeeeeeeeAeeeeereeeneeeee 
1128 ppeeeeeeeeeeeeeeerererereeeeeerereereeeReKAeeeKeeeeeeeeeeeNTe Eee 
1129 005446 MTSTS: 
1130 005446 004737 013576 1$: JSR PC,CPUHI 3NO INTR ALLOWED YET 
1131 005452 005077 173742 41$: CLR acsR 
1132 005456 022777 000200 173734 CMP #200,aCSR :1S ONLY READY SET 
1133 005464 001372 BNE 41% 
1134 005466 017737 173726 001446 38$: MOV acsR, TEMP 
1135 005474 042737 100000 001446 BIC #B1115, TEMP 
1136 005502 052737 000002 001446 BIS #2,TEMP sSET DSTATC IN SLAVE 
1137 sTELLS SLAVE TO SETUP FOR XFERS 
1138 005510 013777 001446 173702 MOV TEMP ,aCSR 
1139 005516 032777 001000 173674 40$: BIT #1000,aCSR sDSTATC HERE SAYS SLAVE 
1140 ;1S READY TO DO XFERS 
1141 005524 001774 BEQ 408% 
1142 005526 004537 011160 378: JSR R5,SETVEC ;SET UP INTR RETURN ADRS 
1143 005532 005666 3$ ;RETURN TO 3$ ON INTR 
1144 005534 004537 011236 JSR R5,LDBUF :GO LOAD 'DBUF* WITH DATA PTRN 
1145 005540 177740 -32. 300 32. LOCATIONS 
1146 005542 012737 010000 001444 MOV #10000, TIME ;SET UP A TIMER VALUE 
1147 005550 013777 001472 173636 MOV XMiTMO,aWCR ;SET UP WORD COUNT 
1148 005556 013777 001474 173632 MOV XMI1TMO+2,aBAR ;SET UP BUFFER ADRS 
1149 005564 004737 013624 JSR PC,CPULO sALLOW THE RDY INTR 
by 34 005570 013777 001476 173622 MOV XMITMO+4,0CSR ;SET UP CONTROL - IE, GO,AND CYCLE 
1152 005576 005337 001444 2$: DEC TIME ;WAIT FOR INTR 
1153 005602 001375 BNE 2$ UNTIL O 
1154 005604 017737 173610 001126 MOV aCSR,$BDDAT sREAD CSR - SHOULD NEVER GET HERE 
1155 005612 017737 173602 001446 MOV acsrk, TEMP 
1156 005620 042737 100000 001446 BIC #B1T15,TEMP 
1157 005626 042737 000100 001446 BIC #100, TEMP sDISABLE IE 
115@ 005634 013777 001446 173556 MOV TEMP ,aCSR 
1159 005642 012737 001300 001124 MOV #1300, $GDDAT sLD EXPECTED STAT C » RDY, IE 
1160 005650 013737 001420 001122 ~ MOV CSR, $BDADR ;SET UP CSR ADRS 
1161 005656 104401 015602 ° TYPE »MSG3 
1162 005662 104003 104000+3 
1163 005664 000430 BR $ 3;GO RESYNC ON ERROR 
1164 005666 022626 3$: CMP (SP)+,(SP)+ sFIX STACK SINCE NO RT] 
1165 005670 017737 173524 001446 MOV acSR, TEMP 
1166 005676 042737 100000 001446 BIC #BITIS, TEMP 
1167 005704 042737 000100 001446 BIC #100, TEMP :DISABLE IE 
1168 005712 013777 001446 173500 MOV TEMP ,aCSR 
1169 005720 017737 173470 001126 MOV awCR, $BDDAT sREAD WORD COUNT 
1170 005726 001432 BEQ 9$ ;BR If ZERO 
He. 005730 0613737 001414 001122 MOV wWCR,SBDADR ;SET UP WCR ADRS 
1172 








CZDRKAO DR1i-W INTRPROC EXER 
WHILE SLAVE RECEIVES 5 AND TIMES OUT (DR11-W TO DR11-W ONLY) 


1173 


WN—ODCOnNOUS 


ee ce a ee a ce a ce ee ce ce ce ced ed ae et a ce ee ce ed eed 
VBWN—O”O 


PR a a a th as a ss as as a as ss ss ss Ss 


005736 
005742 
005744 


005746 


006 
006010 


066066 


104401 
104005 
000400 


000005 


104412 


017737 


004737 


015602 


000010 


005000 
004000 


173400 
170777 
005000 
004000 
000010 


000012 
011200 
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173442 


001450 
001450 


001450 
001450 
001450 
001450 
173342 


173332 
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TYPE 


104000+5 
BR 


6$: 


21$: 


23%: 
248: 


9$: 


10$: 


»MSG3 
6$ 


;GO RESYNC ON ER 


sERROR IN MASTER-WAIT FOR SLAVE STATUS 


#10,aCSR 
acSR, SAVE 
#170777,SAVE 
#5000, SAVE 


24% 
#4000, SAVE 
21% 


;TELL SLAVE WE HAVE AN ERROR 


RSYNC ON ERROR 


3NO ERROR IN MASTER-WAIT FOR SLAVE STATUS 


aCSR,SAVE 
#170777,SAVE 
4 detain 
#4000,SAVE 
9$ 

#10,aCSR 


#12,aCSR 
PC,RSTVEC 


;READ CSR 
SAVE ‘STAT’ BITS 


;BR IF SLAVE DONE WITH NO EP'S 
;WAS THERE AN ER? 
;BR IF NOT 


;RSYNC ON ERROR 
;TELL SLAVE ALL OK 
;GO RESTORE VECTOR 


ed 


SEQ 0034 


~ 


CUPrwnr—COoWw 





CZDRKAO DR11-W INTRPROC 


0 
0 
0 
1 
1 
1 
1 
1 
1 
1 


032777 


000421 


000000 


000137 





EXER 


020000 
006110 


013576 


001000 
001000 


013502 
001000 


006240 


J 
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3 


SLAVE TESTS 


SLAVE PROTOCOL INIT-TESTI 


-s@Paeeerererrereretererterereeerereteteeetertekeeeeeeeeeeeeeeeeeee 


SINIT1: BIT 


BR 
33658: .ASCIZ 
645: 


1$: JSR 


2s: BIT 


3$: JSR 


4$: BIT 





#B1T13,aCSR 
1$ 


,65% 3; TYPE ASCIZ STRING 
64% 3;GET OVER THE ASCIZ 
<CRLF>/CABLE 1S NOT INSERTED - HALTING / 


PC, CPUHI 

STACK ,SP 

acsR 

#1000,aCSR WHAT IS DSTATC 

3$ ;1f CLR-BRANCH AND WAIT FOR MASTER 
an 7 1F NOT,WAIT FOR CLEAR 

PC ,GOCMPN 

#1000,aCSR HAS MASTER SET DSTATC IN SLAVE? 

4 NOT YET 

SLISTR 














et et ee ee eed eed ed 
Pp Seteictetietetictetette 
WWW 

BOOM uOURWNES 


1580 006302 


CZDRKAO DR1i-wW INTRPROC EXER 
* STST1 RECEIVE MASTER'S DBR DATA AND SEND IT BACK VIA 


* S$TST1 


004737 
004737 


017737 


000240 


001000 
001444 





MACRO M1111 


001450 
001450 


173136 
001444 


» SBTTL 


3 
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RECEIVE MASTER'S DBR DATA AND SEND IT BACK VIA DBR 


peeeeeeeererereeterereerreereerereeeeeeAeTeAAeeKeATeAeAeeTe ETE 

[eeneerereterererrerererereerertertereneneeneneeteneeeeeerertent 
‘NOW THIS COMPUTER BECOMES THE SLAVE AND ECHOS MASTER'S DBR DATA 
;SLAVE COMPUTER STARTS HERE FROM PROGRAM START 204 


MARBBAARAARAABAAASAARASAASAAALASARASARARAAASARESASA RASA SAAR ARAR ARRAS ES | 


; eee eeeeeeerareeeereeeeee ee eee eee KKeeAKKAKKereKteKKeeHees 


STST1: 


SLISTR: 


5$: 


4$: 


PC ,GOCMPN 
PC,WICMPN 


ABDR, SAVE 
#177001, SAVE 
4$ 

SAVE ,@BDR 
#1000, TIME 
TIME 


5$ 
STST1 


;TELL MASTER WE ARE READY 
italt AVAILABLE? 
T DA 
TEST TERMINATOR? 
:BR IF SO 
;SEND IT BACK 
DELAY BEFORE CALLING MASTER 


:GO LOOK FOR-MORE DATA 


SEQ 0036 





FAAS MMNMAMNNNYY 
WN —OOOnNO UVF wr 


CZDRKAO DR11-W INTRPROC EXER 
* TEST THAT SLAVE INTERRUPTS MASTER:F2 TO ATIN 


001000 
001444 


3 
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* TEST THAT SLAVE INTERRUPTS MASTER:F2 TO ATIN 
;SLAVE PROTOCOL INIT-TEST2 


a3 ereeeaeeererereeeerererereteeeteeeeetetenetereretektetaeteneeeeetene 


acsrR ;CLR DSTATC OF MASTER 
PC ,WICMPN : 

acSR, TEMP 
#B1T15, TEMP 


#4 ,TEM SET INTERRUPT MASTER 
TEMP ,acSR 


#4, TEMP sCLR F2 


#10000, TIME 
Hp a WAIT DSTATC SLAVE TO CLEAR 





006422 
1 006422 


8 004737 013414 
82 006426 012737 001000 
83 006434 0 001444 


85 006442 022777 177002 
87 006452 017737 172742 
88 006460 042737 170777 
89 006466 113777 001451 


906476 004737 013502 


Une 
So 
ws 
w 
w 
~N 


001444 


172752 


001450 
001450 
172724 


~SBTTL 


* STST2 RECEIVE MASTER'S ‘STAT’ BITS AND SEND I7 BACK VIA ‘FNCT’ BITS 
ppeeeeeeeereererererereeeeeeereeeeAreeeeeAeeAteteeeKeAAeeeAeA eis 
- eeeeeeeereereeeeerrererererereeeeereeeeeeeneeeeeeeTeree eee ees 


:RECEIVE "STAT' BITS AND CONVERT TO 'FNCT’ BITS AND WRITE TO CSR 


;, eeeeeeeeeeeeeeeeeereeeeeeteeeeeeeereetekhaKeeKteteKenteeeeraeeees 


s,eeeeereeererererereretereeeeeereterereeekaereteeeeteterereeede 


STST2: 
4$: 


5$: 
2$: 


3$: 


PC ,WICMPN 
#1000, TIME 
TIME 


5% 

#177002 ,aBDR 
3$ 

@CSR,SAVE 
#170777, SAVE 
SAVE+1,aCSR 
4% 

PC ,GOCMPN 


;WAIT FOR MASTER 
;DELAY 


TEST TERMINATOR? 
:BR IF SO 
READ THE CSR 
SAVE ONLY THE STAT BITS 
;ECHO WITH FNCT BITS 
;LOOK FOR NEXT ‘STAT CODE 
; TELL MASTER TO CONTINUE 


SEQ 0038 


| 





CZORKAO DR11-W INTRPROC EXER 
* STSTS BLOCK MODE WORD XFER TEST-SLAVE RECEIVES 


1304 006502 


g 


36 
06542 


WWAAAAI WWW 
& 
w 
& 


N—ODODOnNO USFWS oO 


PO PROPORG ot t t s 
ww 

g8ee. 

NFeoR 


ou 
So 
ee 


WANA ANA 
~w Nm 
~~ * 
3 E 
* Ww 
= So 


29 006660 
31 006674 
33 006710 


Ww 
™~m 
So 
o 
o 
N“ 
So 
~w 


349 007012 
350 007016 


004737 


013737 
104401 


013576 
001000 
001444 


172672 
001200 


011160 
011220 


010000 
001464 


001444 
172550 


001420 
015516 


172464 
172456 


001124 
001420 
015516 


MACRO M1111 


-SBTTL 
ean 


ERROR, AND RESYNCS ON PROGRAM 





nN 3 
Oe tag 14:19 PAGE 27 


* S$TST3 BLOCK arte WORD XFER TEST-SLAVE RECEIVES 32 
WORDS FROM MASTER 


peeeeeeeeerererererrerereeeereeeeeeAeeARKeAeAeee Kee KEKE e eee 
leeeeeeeereerrereererreeetreereeereteereeeneeteneeereneeeseeeeee 
STHIS TEST SETS UP TO RECEIVE A 32 WORD BLOCK OF DATA FROM THE MASTER 
; THEN CHECKS FOR PROPER INTERRUPT STATUS, WC, BA & DATA 

71F AN ERROR IS DETECTED THE SLAVE TELLS THE MASTER. REPORTS THE 


«  Peeeeteeereerreerrerereereerererererenereneeeeeneeeeeeeeeeeete 


sp eeeeaeerererereteterereneeeererereeeeeeKetAeeeateeeretetetetane 


STST3: 
1$: JSR 
001444 MOV 
40$: DEC 
BNE 
41$: CLR 
172664 CMP 
BNE 
39$: JSR 
3$ 
JSR 
-32. 
001444 MOV 
172626 MOV 
172622 MOV 
JSR 
001446 MOV 
001446 BIC 
001446 BIS 
172570 MOV 
172562 MOV 
2$: DEC 
BNE 
001126 MOV 
001446 MOV 
001446 BIC 
001446 BIC 
172516 MOV 
001124 MOV 
001122 MOV 
TYP 
104000+7 
BR 
3$: CMP 
001126 MOV 
001446 MOV 
001446 BIC 
001446 BIC 
172432 MOV 
001124 MOV 
001126 CMP 
BEQ 
001122 MOV 
TYP 
104000+10 


PC, CPUHI 
#1000, TIME 
TIME 

40% 

acsR 
#1200,aCSR 
41% 
R5,SETVEC 
R5,CLRBUF 


#10000, TIME 
RPRAM,aWCR 
RPRAM+2 ,ABAR 
PC,CPULO 
acSR, TEMP 
#B1T15, TEMP 
#12,TEMP 
TEMP ,aCSR 
RPRAM+4 ,aCSR 
TIME 


2$ 
aCSR,$BDDAT 
aCSR, TEMP 
#B1T15, TEMP 
#100, TEMP 
TEMP ,aCSR 
#4312, $GDDAT 
CSR, SBDADR 


-MSG1 


10$ 
(SP)+,(SP)+ 
aCSR,SBDDAT 
aCSR, TEMP 
#100, TEMP 
#B1T15, TEMP 
TEMP ,aCSR 
#4312,$GDDAT 
$GDDAT ,$BDDAT 


4$ 
CSR, $BDADR 
MSGI 


;NO INTRS ALLOWED YET 


;ONLY DSTATC AND READY SET 


;SET UP THE INTR RETURN ADRS 
;RETURN TO 3$ ON DATO INTR 
;GO CLR ‘DBUF' 

:D0 32. LOCATIONS 

;SET UP A TIMER VALUE 

;SET UP WORD COUNi 

SET UP BUFFER ADRS 

ALLOW THE INTR 


sFNCT 38) 


;SET UP CONTROL - FNCT 3 & 1, 


;WAIT FOR INTR 

UNTIL ZERO 

;READ CSR - SHOULD NEVER GET 
;DISABLE IE 


;LD EXPECTED - STAT A, RDY, 
SET UP CSR ADRS 


3GO RESYNC ON ER 

FIX STACK SINCE NO RETURN 
;READ STATUS 

;DISABLE JE 

;LD EXPECTED - STAT A, RDY, 
; CORRECT? 


:BR IF SO 
;SET UP CSR ADRS 


IE & GO 


HERE 


1E &@ FNCT 5 & 1 


1E & FNCT 3 & 1 


SEQ 0039 


1351 007020 
7022 


7 067044 


Va 

VFWH 0 0ONnNoO 
oooooooooo 
Se a tee en be be’ ee be 
—SCOo0co000 
ONNNOOUM 
Forvroonsfrw 


w 
o 
N 
o 
~N 
—_ 
Nn 
Nm 


WAM WNW WW 


SEAS 
sss 
ANN 
_— 
ooo 
ofr 


a a ee a ed ed es od 
ww 
GN 
_ 
™~ 
es 


WANA AA AA AIA 


91 007214 


93 007220 
94 007224 


CZDRKAO DR11-W INTRPROC 
WORDS FROM MASTER 


013737 
104401 


010237 


104401 
104013 


EXER 


001124 
172362 


001414 
015516 


001466 
001464 


001124 


001416 
015516 
001466 


001464 
177776 


601126 
001122 
001124 


015516 


MACRO M1111 


001126 
001122 


001124 


001126 
001126 
001126 


001122 


4$: CLR 


TYPE 
104000+11 
BR 


5$: MOV 


TYPE 
104000+12 
BR 


6$: MOV 
7$: MOV 
8$: CMP 


9$: MOV 


TYPE 
104000+13 


B 4 
24-AUG-79 14:19 PAGE 27-1 


108 

SGDDAT 
ne 
wWCR,$BDADR 
»MSG1 


10$ 
RPRAM+2 ,SGDDAT 
RPRAM,RO 


RO 
RO, $GDDAT 
@BAR ,SBDDAT 


#81T00,$BDDAT 
S$GDDAT , SBDDAT 


6$ 

BAR, SBDADR 
-MSG1 

10$ 
RPRAM+2 ,RO 
RPRAM,R1 
#177776,R2 


R3 
R2,(RO)+ 
$ 


8 

-(RO) ,SBDDAT 
RO, $BDADR 
R2,$GDDAT 


-MSG1 


GO RESYNC ON ERROR 


;LD EXPECTED wC 
;READ WCR 


:BR_IF SO 
SET UP WCR ADRS 
GO RESYNC ON ERROR 


GET STARTING ADRS OF XFER 


;GET wC 
GET ACTUAL # 
; CONVERT TO WORD 


:ADD TO BASE ADRS 
;READ BAR ADRS 
sELIMINATE LSB 

; CORRECT? 


:BR IF SO 
;SET UP BAR ADRS 


;GO RESYNC ON ERROR 

;GET BUFFER ADRS 

;GET WORD COUNT 

3;GET 1ST DATA PTRN (FLOATING 0) 
7R3 SAYS WHEN TO SHIFT PTRN 
;COMPARE DATA IN DBUF TO EXPECTED 
;BR IF DATA ERROR 

;COUNT THE WORD COUNT 

;BR IF DATA CHECKS DONE 

; CONVERT PTRN TO FLOATING 1 

; TIME TO SHIFT? 

;BR IF NOT = GO CK NEXT 


;FLOAT PTRN LEFT 

;KEEP LSB SET 

:G6C RESET FLOATING PTRN 
:GO CHECK NEXT 


[GET BAD DATA 
;GET MEM ADRS OF DATA ER 
:LD EXPECTED DATA 


C 4 
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WORDS FROM MASTER SEQ 0041 
1399 sERROR IN SLAVE-WAIT FOR MASTER STATUS 
1398 007226 000005 10$: RESET ;TELL MASTER WE HAVE ERROR 
1400 007230 017737 172164 001450 158: MOV acSR,SAVE ;LOOP ON ERROR 
1401 007236 042737 170777 001450 BIC #170077, SAVE :BUT WAIT FOR MASTER 
1402 007244 001404 BEQ 24$ 
1403 007246 022737 001000 001450 168: CMP #1000, SAVE 
1404 007254 001365 BNE 15$ 
py ¢4 007256 104412 243: RSYNC >RSYNC ON ERROR 
1407 
1408 
He 44 7NO ERROR IN SLAVE-WAIT FOR MASTER STATUS 
1411 007260 112777 000002 172132 13$: MOVB #2,aCSR ;TELL MASTER ALL OK 
1412 007266 017737 172126 001450 14$: MOV acSR,SAVE sREAD CSR 
1413 007274 042737 170777 001450 BIC #170777,SAVE sSAVE ‘STAT’ BITS ONLY 
1414 007302 001405 BEQ 31$ ;1S ER IN MASTER? 
1415 007304 022737 001000 001450 CMP #1000, SAVE :MASTER OK? 
1416 007312 001402 BEQ 30$ 
1417 007314 000764 BR 14$ 
1418 007316 104412 31$: RSYNC ;RSYNC ON ERROR 
a 007320 004737 011200 30$: JSR PC,RSTVEC 3GO RESTORE VECTOR 
1421 


OL 





35 007344 


37 007352 
38 007360 
io 007366 


BE niin nineueant 
FAFA 
So 
o 
~“ 
Ww 
P 
~m 


144 

ee 007370 
1443 007374 
1444 007400 
1445 007404 
1446 007412 
1447 


CZDRKAO DR11-W INTRPROC 
WORDS FROM MASTER 


004737 
012737 


013737 
067737 


023727 
001406 


005077 
004737 


004737 


EXER 


013414 


001000 
001444 


001434 


172044 
001442 


172026 


013502 


MACRO M1111 


001444 
001442 


001442 
000256 


172010 


SLBRD: 
1$: 


2$: 


JSR 
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24-AUG=79 14:19 PAGE 29 


;BURST MODE WORD XFER TEST DETERMINATION 


py eeeteeeeeeeeeeereeeeeeeeeeeeeeeeteeeeeeeeeReteeteeeeeeeeAeeetete 


oo ‘IF BURST XFERS AND BURST DATA LATE ARE TO BE 


s,etereeeeereeeeerreeereerereeeeeeeeeeeeeeeeeeeeeeeeeeeteeeteeeee 


PC,WICMPN 
#1000, TIME 
TIME 


1$ 
BOARD, TOTAL 


@BOR, TOTAL 
TOTAL ,#256 
2$ 


@BDR 

PC ,GOCMPN 
SLVFIN 
#1,aBDR 
PC ,GOCMPN 





;WAIT FOR MASTER TO INDICATE 
;WHAT BOARD TYPE IT IS 
;WAIT ON MASTER 


;DETERMINE IF BOTH MASTER 
;AND SLAVE ARE DR11W'S 


;DO BURST MODE 


;NO BURST MODE 


SEQ 0042 





CZDRKAO DR11-W INTRPROC EXER 


MACRO M1111 


E 
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* STST4 BURST MODE WORD XFER TEST-SLAVE RECEIVES 32 


1458 007416 004737 013576 
1459 007422 012737 001000 
1460 007430 005337 001444 
1461 007434 001375 

1462 007436 005077 171756 
1463 007442 022777 001200 
1464 007450 001372 

1465 007452 004537 011160 
1466 007456 007642 

1467 007460 004537 011220 
1468 007464 177740 

1469 007466 012737 010000 
1470 007474 013777 001464 
1471 007502 013777 001466 
1472 007510 004737 013624 
1473 007514 017737 171700 
1474 007522 042737 100000 


1478 007552 005337 001444 
1480 007560 017737 171634 


1482 007574 042737 100000 
1483 007602 042737 000100 
1484 007610 013777 001446 
1485 007616 012737 600302 
1486 007624 013737 001420 


1487 

1488 007632 104401 015550 
1489 007636 104007 
1490 007640 000540 
1491 007642 022626 
1492 007644 017737 


1495 007666 042737 000100 
1496 007674 013777 001446 
1497 007702 012737 000302 
1498 007710 023737 001124 
1499 007716 001407 

aa 007720 013737 001420 
1502 007726 104401 015550 
1503 007732 104010 

1504 007734 000502 

1505 007736 005037 001124 


~SBTTL 
»SBITL 


* STST4 BURST MODE WORD XFER TEST-SLAVE — 32 
WORDS FROM MASTER(DR11-W TO DR11-W ONL 


ryt ME wa Ree Rein oboe bon, Bh A ginko S| TEE 
,;eeereeeeerereinerereeeterererenerereteeeeeeReneeereKeeteetenene 


THIS TEST SETS UP TO RECEIVE A 32 WORD BLOCK OF DATA FROM THE MASTER 
; SAME AS TEST 3 EXCEPT BURST MODE 


SERRATE EAHA AETHER eee eee eee eke eet 
; ee eeeeeeeereeereeeeerereeeeteeeeeee eee eeeeeeeeteneene 


STST4: 
1$: JSR PC,CPUHI 
001444 MOV #1000, TIME 
40$: DEC TIME 
BNE 40% 
41$: CL acsr 
171750 CMP #1200,aCSR 
BNE 41$ 
39$: ey RS,SETVEC 
tt R5,CLRBUF 
001444 MOV #10000, TIME 
171712 MOV RPRAM,aWCR 
171706 MOV RPRAM+2 ,aBAR 
JSR PC,CPULO 
001446 MOV acsR, TEMP 
001446 BIC #BITIS, TEMP 
001446 BIS #2, TEMP 
171654 MOV TEMP, CSR 
171646 MOV #103.aCSR 
28: DEC TIME 
BNE 2$ 
001126 MOV acsr, SBDDAT 
001446 MOV acsR, TEMP 
00144 BIC #B1T15, TEMP 
001446 BIC #100,TEMP 
171602 MOV TEMP ,aCSR 
001124 MOV #302 ,$GDDAT 
001122 MOV CSR,$BDADR 
TYPE »MSG2 
104000+7 
BR 10$ 
3$: CMP (SP)+,(SP)+ 
001126 MOV aCSR,$BDDAT 
001446 MOV acsR, TEMP 
001446 BIC #BIT1S, TEMP 
001446 BIC #100, TEMP 
171516 MOV TEMP .aCSR 
001124 MOV #302, $GDDAT 
001126 ys SGDDAT, ,» SBDDAT 
001122 MOV CSR,$BDADR 
TYPE »MSG2 
104000+10 
BR 10% 
4$: CLR $GDDAT 


;NO INTRS ALLOWED YET 


;ONLY DSTATC AND READY SET 


SET UP THE INTR RETURN ADRS 
; RETURN 1 ON DATO INTR 
. J U A] 


;00 32. LOCATIONS 

;SET UP A TIMER VALUE 

;SET UP WORD COUNT 

SET UP BUFFER ADRS 
s;ALLOW THE INTR 


sFNCT 1 


;SET UP CONTROL - FNCT 1, IE & GO 
:WAIT FOR INTR 

;UNTIL ZERO 

:;READ CSR = SHOULD NEVER GET HERE 


DISABLE IE 


;LD EXPECTED - RDY, IE & FNCT 1 
SET UP CSR ADRS 


;GO RESYNC ON ER 
:F1X STACK SINCE NO RETURN 
;READ STATUS 


:DISABLE IE 


;LD EXPECTED - RDY, IE & FNCT 1 
; CORRECT? 

:BR IF SO 

SET UP CSR ADRS 


:GO RESYNC ON ERROR 
:LD EXPECTED wC 


SEQ 0043 





CZDRKAO DR11-W INTRPROC EXER 
WORDS FROM MASTER(DR11-W TO DR11-W ONLY) 


1506 007742 017737 171446 
07 007750 001407 
007752 013737 001414 


07760 104401 015550 
07764 104011 


07770 013737 001466 
Brann’ 013700 001464 


060037 001124 
171400 
0020 042737 000001 
0026 023737 001124 
0034 001407 

0036 013737 001416 


10044 104401 015550 


et at ot 
o 
zee 
— 
Nm 
oO 
— 
~s 
~“ 
Ww 
~ 


10054 013700 001466 
10060 013701 001464 
10064 012702 177776 


PEPUDUIUPU SVS SV SUSUSUSUS SSSI SIP STIS 


Sr ee ee an on a ee nen 


— 
| 
oO 
So 
So 
ww 
Oo 
Oo 
lw 


WN —ODOWBWNAYUFSWNR HOODOO UFSWR—OC3O@ 
So 
So 
~“N 
Nm 
oS 
~ 
oS 
~w 
tw 
Oo 


oo 
| 
oe 
So 
So 
w 
Nm 
oO 


014037 001126 
010037 001122 
010237 001124 


104401 015550 
104013 


ah at ad ok od ol ca eo ee oe ee end end ed 
oo OCOCOOCOCOoOOCOOCOOCOoOSoSO 
ae ant eek ath ea ea ax ath ahs ots ed 


aw SVSornnoskes 
oF OFOCSNOC Fh 

st 

oO 

w 

Ww 

o 

wm 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


oO BOOCOCOCOOCOCOOCOOCOOCOOOOOOOO ACCOCCOCCOCO 
Oo 


NOWEWNM—O0OOn 


_—_— 
— 
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001126 MOV awCR,$BDDAT 
BEQ 5$ 
001122 MOV WCR,$BDADR 
TYPE »MSG2 
104000+11 
BR 10$ 
001124 5$: MOV RPRAM+2 ,$GDDAT 
MOV RPRAM,RO 
NEG RO 
ASL RO 
ADD RO, $GDDAT 
001126 MOV @BAR , SBDDAT 
001126 BIC #B1T00,$BDDAT 
001126 CMP SGDDAT , $BDDAT 
BEQ 6$ 
001122 MOV BAR, $BDADR 
TYPE »MSG2 
104000+12 
BR 10$ 
6$: MOV RPRAM+2,RO 
MOV RPRAM,R1 
7$: MOV #177776,R2 
CLR R3 
8$: CMP R2,(RO)+ 
BNE 9$ 
INC R1 
BEQ 13$ 
COM R2 
COM R3 
BNE 8$ 
ASL Re 
INC R2 
BCC 7$ 
BR 8$ 
9$: MOV -(RO) ,SBDDAT 
MOV RO, SBDADR 
MOV R2,$GDDAT 
TYPE oMSG2 
104000+13 


;READ WCR 
:BR IF SO 
7SET UP WCR ADRS 


3G0 RESYNC ON ERROR 
;GET STARTING ADRS OF XFER 
GET we 

;GET ACTUAL # 
sCONVERT TO WORD 
;ADD TO BASE ADRS 
;READ BAR ADRS 
sELIMINATE LSB 

; CORRECT? 

;BR IF SO 

;SET UP BAR ADRS 


;GO RESYNC ON ERROR 

:GET BUFFER ADRS 

;GET WORD COUNT 

;GET 1ST DATA PTRN (FLOATING 9) 
;R3 SAYS WHEN 70 SHIFT PTRN 
;COMPARE DATA [N DBUF TO EXPECTED 
;BR IF DATA ERROR 

;COUNT THE WORD COUNT 

:BR IF DATA CHECKS DONE 
;CONVERT PTRN TO FLOATING 1 
;TIME TO SHIFT? 

;BR IF NOT ~- GO CK NEXT 

;FLOAT PTRN LEFT 

;KEEP LSB SET 

:GO RESET FLOATING PTRN 

;GO CHECK NEXT 

;GET BAD DATA 

:GET MEM ADRS OF DATA ER 

;LD EXPECTED DATA 


SEQ 0044 


000005 


104412 


012777 
017737 


004737 





CZDRKAO DR11-W INTRPROC EXER 
WORDS FROM MASTER(DR11-W TO DR11-wW ONLY) 


000010 
171242 
170777 
005000 


004000 


000012 
171176 
170777 
905000 


004000 


011200 
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001450 
001450 


171202 


001450 
001450 


#10,aCSR 
aCSR,SAVE 
#170777,SAVE 
oe 


4 
#4000,SAVE 
15$ 


>NO ERROR IN SLAVE-WAIT 


#12,aCSR 
@CSR,SAVE 
#170777,SAVE 
+ al tae 


30 
#4000, SAVE 
14% 


PC, RSTVEC 


sERROR IN SLAVE-WAIT FOR MASTER STATUS 


; TELL MASTER WE HAVE AN ERROR 
;LOOP ON ERROR 
;BUT WAIT FOR MASTER 


RSYNC ON ERROR 


FOR MASTER STATUS 
: TELL MASTER ALL OK 


:READ CSR 


SAVE ‘STAT’ BITS ONLY 


; IF NO ER,CONTINUE 
:1F ERROR,RESYNC 


RSYNC ON ERROR 
3GO RESTORE VECTOR 


SEQ 0045 


 czoneap DRi1l-W INTRPROC EXER MACRO M1111 24=AUG-79 14:19 PAGE 2 
* STSTS BURST DATA LATE TEST=SLAVE RECEIVES 5 WORDS 


-SBTTL ®* STSTS BURST DATA LATE TEST=SLAVE RECEIVES 5 WORDS 
-SBTTL FROM MASTER AND TIMES OUT WHILE EXPECTING MORE 

- SBTTL (DR11-W TO DRI1-W ONLY) 
ppeteeeeeeeeerrererrrerereeerrtereeeereeeeetereteneeeeeeeteeerete 
jp eeeeeeerererrereeererrrereeeeeterereneeeeeeeneeeeeeeeeeeeeetete 
: SETS UP TO RECEIVE 10 WORDS IN BURST MODE FROM MASTER,BUT MASTER WILL ONLY SEND 5 WORDS. 
; TIMEOUT OCCURS AND THE BUS IS RELEASED 

; THEN CHECKS FOR PROPER INTERRUPT STATUS, WC, BA & DAT 

:1F AN ERROR IS DETECTED THE SLAVE TELLS THE MASTER, REPORTS THE 
ERROR, AND RESYNCS ON PROGRAM 

iif ALL OK THEN THIS COMPUTER BECOMES MASTER AND GOES TO MTST1 

+ Qeeeeeencerreeererrererereerertereeeereeeeeertreereerereeterees 


Sf Ut eeeenerereeeeeeeee eee eee eee eRe eee eee eeeeteeeeeees 


SEQ 0046 


— 
uw 
~N 
uw 


PPA PADA AAA AAAI 
SSSR SSeS Aaa 
VIFWWh 0 OOno 


ee ek ee ee ee et ed 


+4 010260 STSTS: 
589 010260 004737 013576 1$: JSR PC, CPUHI :NO INTRS ALLOWED YET 
590 010264 012737 001000 001444 MOV #1000, TIME “DELAY ON MASTER 
$91 010272 005337 001444 40$: DEC TIME 
$92 010276 001375 BNE 40$ 
593 010300 005077 171114 418: CLR acsR 
594 010304 022777 001200 171106 CMP #1200,aCSR :ONLY DSTATC AND READY 
595 010312 001372 BNE 41$ 
596 010314 004537 011160 39$: JSR RS, SETVEC :SET UP THE INTR RETURN ADRS 
597 010320 010424 2$ =RETURN TO 2$ ON DATO INIR 
$98 010322 004537 011220 JSR RS, CLRBUF :G0 CLR "DBUF' 
599 010326 177740 32. :DO 32. LOCATIONS 
600 010330 012737 040000 001444 MOV #40000, TIME >SET UP A TIMER VALUE 
1601 010336 013777 001500 171050 MOV RCVIMO,aWCR :SET UP WORD COUNT 
1602 010344 013777 001502 171044 MOV RCVTMO+2,a@BAR  :SET UP BUFFER ADRS 
1603 010352 004737 013624 JSR PC,CPULO TALLOW THE INTR 
1604 010356 017737 171036 001446 MOV acSR,1EMP 
1605 010364 042737 100000 001446 BIC #B1T15, TEMP 
1606 010372 052737 000002 001446 BIS #2, TEMP SFNCTI 
1607 010400 013777 001446 171012 MOV TEMP, aCSR 
1608 010406 013777 001504 171004 MOV RCVTMO+4 .aCSR :SET UP CONTROL:JE.FNCT! & GO 
; U 
1610 010414 005337 001444 25%: DEC TIME :WAIT FOR MASTER TO SETUP: 
1611 010420 001375 BNE 25$ [THEN SLAVE BUS WILL BE HELD FOR DURATION 
1612 [OF BURST XFERS; TIMEOUT WILL OCCUR WITH SUBSEQUENT 
1613 “RELEASE OF BUS AND PROGRAM CONTINUATION 
1614 010422 000416 BR 3$ 7GO TO CHECKS 
1615 010424 017737 170770 001446 2%: MOV aCSR, TEMP 
1616 010432 042737 100000 001446 BIC #B1T15, TEMP 
1617 010440 042737 000100 001446 BIC #100, TEMP :DISABLE IE 
1618 010446 013777 001446 170744 MOV TEMP .aCSR 
1619 010454 104017 104000+17 
1620 010456 000471 BR 10$ 
1621 010460 017737 170734 001126 38: MOV aCSR,SBDDAT :READ STATUS 
1622 010466 032737 000200 001126 BIT #BIT7,$BDDAT —: TEST READY BIT 
1623 010474 001412 BEQ 5$ 
1624 010476 013737 001446 001124 MOV TEMP, SGDDAT 
1625 010504 013737 001420 001122 MOV CSR, $BDADR 
1626 010512 104401 015602 TYPE  ,MSG3 
1627 010516 104014 104000414 
1628 010520 000450 10$ 
1629 010522 012777 100000 170670 5$: MOV #B1115,aCSR :G0 TO EIR 
1630 010530 017737 170664 001126 MOV aCSR,SBDDAT “SAVE EIR 
1631 010536 032737 001000 001126 BIT #B119,$BDDAT :TEST BURST DATA LATE BIT 





SAR 


So oo 


_—— OO 
ee oe 


001015 


000400 


000005 


104412 


000005 
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000010 
170542 
170777 
005000 


004000 


010000 
001444 


000012 

70460 
170777 
005000 


004000 


011200 
001452 
001454 
000144 
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001126 
001124 
001122 


001124 
001126 
001126 


001122 


170546 
001450 
001450 
001450 


001450 


001444 


170464 


001450 
001450 


001454 
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4% 
BIC #B1TE ,SBDDAT 


MOV #101000, $GDDAT 
MOV CSR, $BDADR 
Swe: bs 
104000+22 
BR 10$ :GO RESYNC ON ERROR 
4$: MOV #177773, $GDDAT :LD EXPECTED wC 
MOV awCR,$BDDAT :READ WCR 
CMP $GDDAT,S$BDDAT = CORRECT? 
BEQ 13$ :BR IF SO 
MOV WOR, $SBDADR :SET UP WCR ADRS 
TYPE MSG3 
104000411 
BR 10$ :GO RESYNC ON ERROR 
SERROR IN SLAVE-WAIT FOR MASTER STATUS 
10$: RESET :1F ERROR, INIT 
MOV #10,aCSR 
15$: MOV CSR, SAVE :LOOP ON ERROR 
BIC #170777, SAVE ;BUT WAIT FOR MASTER 
CMP #5000, SAVE 
BEQ 24$ 
16$: CMP #4000,SAVE 
BNE 15$ 
248: RSYNC s;RSYNC ON ERROR 
sNO ERROR IN SLAVE-WAIT FOR MASTER STATUS 
13$: ‘RESET :SLAVE HAS TIMED OUT LEAVING 
>READY CLEAR. FNCT BITS TO DSTAT 
:BITS COMMUNICATION CAN BE 
>RESUMED BY SETTING READY.RESET 
‘WILL SET READY. 
MOV #10000, TIME 
11$: DEC TIM 
BNE iis 
MOV #12,aCSR :TELL MASTER ALL OK 
14$: MOV aCSR, SAVE “READ CSR 
BIC #170777,SAVE = SAVE "STAT BITS ONLY 
CMP #5000, SAVE 
BEQ EOPT :BR 1F MASTER DONE WITH NO ER'S 
CMP #4000, SAVE “DOES MASTER HAVE AN ERROR? 
BNE 14$ :BR IF NOT 
RSYNC [RSYNC ON ERROR 
EOPT: JSR PC .RSTVEC :GO RESTORE VECTOR 
SLVFIN: CKSWR :GO CHECK SwR 
TST MSTER ‘WERE WE STARTED AS MASTER? 
BNE EOPTA :BR IF NOT 
DEC 1 COUNT :COUNT TEST PASS 
BNE EOPTA :BR IF NOT DUE FOR ‘END PASS* MSG 
MOV #144, 1 COUNT *RESET PASS COUNT TO 100 ITERATIONS 











yy treet tt 
er hk a 
Srmefofnrr 


So 


FMAONS —“OWOK fF SMOG LM 


0 
0 
0 
1 
1 
1 
1 
1 
2 
2 
2 
3 
3 
3 
4 
4 
5 
5 
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000240 
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000137 
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-SBTTL END OF PASS ROUTINE 
ppeeeeeeeeeeeeeeeerereeeeeeeeeLeee te AeA AAA EKA RETA ee ATE Ee 
>*INCREMENT THE PASS NUMBER ($PASS) 

s*TYPE “END PASS @XXXXX"' (WHERE XXXXX 1S A DECIMAL NUMBER) 

:*1F THERES A MONITOR GO TO IT 

Pf THERE ISN'T JUMP TO EOPTA 


SEOPCT: 


SENDCT: . 


$GET42: 


SENDAD: 


$DOAGN: 


SRINAD: . 
SENULL: . 
SENDMG: . 


EOPTA: 
EOPTB: 





STSTNM 3;ZERO THE TEST NUMBER 

SPASS >; INCREMENT THE PASS NUMBER 
#100000,$PASS ;;DON'T ALLOW A NEG. NUMBER 
(PC)+ ;; LOOP? 


1 
SDOAGN szves 
panes ; RESTORE COUNTER 


, SENDMG 7; TYPE ‘‘END PASS #'' 
$SPASS,-(SP) 3; SAVE SPASS FOR TYPEOUT 
3:G0 TYPE--DECIMAL ASCII WITH SIGN 
» SENULL »2: TYPE A NULL CHARACTER 
a#42,R0 3:GET MONITOR ADDRESS 
$DOAGN ;;BRANCH IF NO MONITOR 
3; CLEAR THE WORLD 
PC, (RO) ::;G0 TO MONITOR 
3; SAVE ROOM 
3s FOR 
ssACTTI 
a(PC)+¢ 3 ;RETURN 
EOPTA 


-1,-1,0 ::NULL CHARACTER STRING 
<15><12>/END PASS #/ 


#1000, TIME :SET UP A COUNT 

TIME :STALL FOR OTHER CPU TO BECOME SLAVE 
EOPTB sUNTIL TIME=0 

MINIT1 :NOW BECOME MASTER 
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1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
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1 
1 
1 
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1 
1 
1 
1 
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NNN NN NN NN SN SN NSN NN NSN NS SSS 
SNS ONY OOONE MR WMS O DS os eS 
CONOWUESWN—ODOONOUFSWN—O0OO~s 


— 

NN 
Wr 
ow 


-SBTTL 
-SBTTL PROGRAM SUBROUTINES 


sp eeeeeaeeeeeeekeeeeeeeeeteeeretererereKKeeeeKKeeeteketReeeeteree 
:THIS ROUTINE SETS THE PRIORITY LEVEL FOR NO INTERRUPT - 
?SETS UP THE INTERRUPT TO RETURN ON INTERRUPT 
310 THE ADDRESS INDICATED ((R5)) BY THE CALL #2 
SPUR RAE RARE TATE AERA AEE EAA K AAA KAKAKAKeKKKKKee Kee eee 
SETVEC: JSR PC, CPUHI :SET UP FOR NO INTERRUPT 

MOV (R5)+,@DRVCTO :SET UP INTR RETURN ADRS 

HOV #200 aDRvCT2 :KEEP PRIORITY LEVEL AT TOP ON INTR 

sEXx 


pee eeeeeeeeeeeeeeeeeteeeeee eee eee ee eee TATA ARTA 
;THIS ROUTINE RESTORES THE INTERRUPT VECTOR TO A HALT 

;AND RAISES THE PRIORITY LEVEL 

RARER ETAT ATTA TAA T ATTA TATE A TERA A RAAT KATA AAT T TTT Ee 


RSTVEC: MOV DRVCT2,@0RVCTO ;POINT VECTOR TO HALT 


CLR aDRvCT2 SET UP HALT 
JSR PC, CPUHI ;RAISE PRIORITY LEVEL 
RTS PC sEX1? 


PARRA eee eee eee eee TTA TET TATE TREAT AT 
7THIS ROUTINE CLEARS THE ‘'DBUF* BEFORE A 'DATI" XFER 

;THE # OF LOCATIONS IN ‘DBUF* TO BE CLEARED IS SPECIFIED BY 

foe re * THE CALL #2 - WHEN ALL CLEARED THE RETURN IS TO 

7 THE CALL + 


'WEROBAARAAAAALAASAAAASASRARRSSAASRSARARARRAR RRR R RRR RRR RRRRRR RRR SES S| 


CLRBUF: MOV (R5)+,R0 ;GET THE LOC COUNT 
MOV WOBUF ,R1 ;GET 1ST ADRS 

1$: CLR (R1)+ ;CLR MEM LOC 
INC RO ; COUNT LOC 
BNE 1$ ;UNTIL ALL DONE 
RTS R5 sEAlT 















PROGRAM SUBROUTINES 


1732 

1733 

1734 

1735 

1736 

1737 011236 012500 
1738 011240 012701 
1739 011244 012702 
1740 011250 005003 
1741 011252 010221 
1742 011254 005200 
1743 011256 001001 
1744 011260 000205 
1745 011262 005102 
1746 011264 005103 
1747 011266 001371 
1748 011270 006302 
1749 011272 005202 
1750 011274 103363 
1751 011276 000765 


CZDRKAO DR1i-W INTRPROC EXER 
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peeeeeerertererereererereterereeeeeeeeeeeeeeeeeeeeeeeeeeTATe Tete 
STHIS ROUTINE LOADS ‘DBUF' WITH A FLOATING ZERO/ONE PATTERN 

;THE # OF LOCATIONS IN ‘DBUF' TO BE LOADED IS SPECIFIED By 

;THE VALUE IN THE CALL #2 = WHEN ALL LOADED THE RETURN IS TO CALL +4 


;eeteeeearerereereeeeeeeereeeeeeeeeeeeKKKKeKKKAeHKKAAKKAKrAteKete 


iDBUF: MOV (R5)+,RO :GET LOC COUNT 
MOV #DBUF .R1 :GET 1ST ADRS 
1$: MOV #177776,R2 =SET UP FLOATING ZERO PTRN 
CLR R3 :R3 SAYS WHEN TO SHIFT PTRN 
2$: MOV R2,(R1)4 “LOAD MEM WITH PTRN 
INC RO :COUNT LOC 
BNE 3$ ‘BR IF MORE 
RTS R5 EXIT 
3$: COM R2 ; CONVERT PTRN + FLOATING 1 
COM R3 ;SHOULD WE SHIF 
BNE 2$ <BR IF NOT - THiS WILL BE A FLOATING 1 
ASL R2 “FLOAT ZERO LEFT 
INC R2 “KEEP LSB SET 
BCC 1$ 3GO RESET FLOATING PATRN 


BR 2$ ;GO LOAD NEXT PATRN 


SEQ 0050 
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SYSMAC ROUTINES 


1723 ~SBTTL SYSMAC ROUTINES 
1755 -SBTTL TYPE ROUTINE 


MACRO M1111 
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Se REREARAAEEAAETAHERAATAEEEAA ARATE AEAAATAAARAAAEAAAAEAAAREEAAAAAEAE 


:*ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A 0 aft F 
:*THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE 


FEED 
$NULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 


SEQ 0051 


> *NOTE1: 
*NOTE2: SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 
: *NOTES: SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 
5° 
> *CALL 
#1) USING A TRAP INSTRUCTION 
“OR TYPE »MESADR ::MESADR 1S FIRST ADDRESS OF AN ASCIZ STRING 
te 
; TYPE . 
fe MESADR 
*® 
011300 105737 001157 STYPE TSTB $STPFLG 3:18 THERE A TERMINAL? 
011304 100002 BPL 1$ 7:BR IF YES 
011306 000000 HALT s HALT HERE IF NO TERMINAL 
011310 000407 BR 3$ 7 LEAVE . 
011312 010046 1$ MOV RO,-(SP) ::SAVE RO 
011314 017600 000002 MOV a2(SP),RO :;GET ADDRESS OF ASCIZ STRING 
011320 112046 2$ MOVB (RO)+,-(SP) s:PUSH CHARACTER TO BE TYPED ONTO STALK 
011322 001005 BNE 4$ 3:BR IF 17 ISN'T THE TERMINATOR 
011324 005726 TST (SP)+ s:1F TERMINATOR POP IT OFF THE STACK 
011326 012600 60$: MOV (SP)+,RO 7 RESTORE RO 
011330 062716 000002 3$: ADD #2,(SP) >: ADJUST RETURN PC 
011334 000002 RTI 3 ;RETURN 
011336 122716 000011 4$ CMPB #HT, (SP) ;:BRANCH IF <HT> 
011342 001450 BEQ 8$ 
011344 122716 000200 CMPB @CRLF, (SP) ;:BRANCH IF NOT <CRLF> 
011350 001006 BNE 5$ 
011352 005726 TST (SP)+ ::POP <CR><LF> EQUIV 
011354 104401 TYPE :;TYPE A CR AND LF 
011356 001165 SCRLF 
011360 105037 011514 CLRB SCHARCNT >: CLEAR CHARACTER COUNT 
011364 000755 BR 2$ ::;GET NEXT CHARACTER 
011366 004737 011450 5$: JSR PC,STYPEC ::G0 TYPE THIS CHARACTER 
011372 123726 001156 6$: CMPB SFILLC,(SP)+ ::18 17 TIME FOR FILLER CHARS.? 
011376 001350 BNE 2$ s:1F NO GO GET NEXT CHAR. 
011400 013746 001154 MOV SNULL ,- (SP) 3:GET # OF FILLER CHARS. NEEDED 
>: AND THE NULL CHAR. 
011404 105366 000003 7$: DECB 1(SP) : DOES A NULL NEED TO BE TYPED? 
011410 002770 BLT 6$ sBR IF NO--GO POP THE NULL OFF OF STACK 
011412 004737 011450 JSR PC ,STYPEC G0 TYPE A NULL 
011416 105337 011514 DECB SCHARCNT +300 NOT COUNT is A COUNT 
011422 000770 BR 7$ : LOOP 
sHORIZONTAL TAB PROCESSOR 
011424 1412716 000040 8$: MOVB #' , (SP) > REPLACE TAB WITH SPACE 
011430 004737 011450 9$: JSR PC ,STYPEC ss TYPE A SPACE 
011434 132737 000007 011514 BITB #7, SCHARCNT ::BRANCH IF NOT AT 
011442 001372 BNE 9% 33 STOP 
011444 005726 TST (SP) + :;POP SPACE OFF STACK 
011446 000724 BR 2% :;GET NEXT CHARACTER 
01145 105777 167474 $TYPEC: TSTB astPs ;;WAIT UNTIL PRINTER IS READY 
011454 100375 BPL $TYPEC 
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TYPE ROUTINE SEQ 0052 
011456 116677 000002 167466 MOVB 2(SP) ,asTPB ;;LOAD CHAR TO BE TYPED INTO DATA REG. 
011464 122766 000015 000002 CMPB WCR,2(SP) 31S CHARACTER A CARRIAGE RETURN? 
011472 001003 BNE 1$ ; BRANCH IF NO 
011474 105037 011514 CLRB SCHARCNT 7; YES--CLEAR CHARACTER COUNT 
011500 000406 BR STYPEX 73 EXIT 
011502 122766 000012 000002 I$: CMPB WLF ,2(SP) 7318S CHARACTER A LINE FEED? 

011510 001402 BEQ STYPEX ;;BRANCH IF YES 

011512 105227 INCB (PC)+ ;: COUNT THE CHARACTER 
011514 000000 SCHARCNT: WORD 0 >; CHARACTER COUNT STORAGE 
011516 000207 STYPEX: RTS PC 
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BINARY TO OCTAL (ASCI1) AND TYPE 


1757 


011520 017646 000000 
011524 116637 000001 
011532 112637 011745 
011536 062716 009002 
011542 000406 
011544 112737 000001 
011552 112757 000006 
011560 112737 000005 
011566 010346 
011570 010446 
011572 010546 
011574 113704 011745 
011600 005404 
011602 062704 000006 
011606 110437 011744 
011612 113704 011743 
011616 016605 000012 
011622 005003 
011624 006105 
011626 000404 
011630 006105 
011632 006105 
011634 006105 
011636 010503 
011640 006103 
011642 105337 011744 
011646 100016 
011650 042703 177770 
011654 001002 
011656 005704 
011660 001403 
011662 005204 
011664 052703 000060 
011670 052703 000040 
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-SBTTL BINARY TO OCTAL (ASCII) AND TYPE 

PERERA ARATE ARATE AREER ERE ATER KAAARAAAA HAART ATs 

3*THIS ROUTINE 1S USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT 
s*OCTAL (ASCII) NUMBER AND TYPE IT. 

wa HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 
>*CALL: 


NUM ,-(SP) ; NUMBER TO BE TYPED 

3;CALL FOR TYPEOUT 
N 3:N=1 TO 6 FOR NUMBER OF DIGITS TO TYPE 
M ::M=1 OR 0 


3: 1=TYPE LEADING ZEROS 
;;0=SUPPRESS LEADING ZEROS 


i *STYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
:*$TYPOS OR $TYPOC 


s*CALL: 
Ee MOV NUM ,-(SP) ;;NUMBER TO BE TYPED 
:* TYPON ;;CALL FOR TYPEOUT 
**« 
ee HERE FOR TYPEOUT OF A 16 BIT NUMBER 
3*CALL: 
jt MOV NUM,-(SP) - 3; NUMBER TO BE TYPED 
3 TYPOC 3;;CALL FOR TYPEOUT 
$TYPOS: MOV a(SP),-(SP) ;;PICKUP THE MODE 
011743 MOVB 1(SP),SOFILL ;;LOAD ZERO FILL SWITCH 
MOVB (SP)+,$OMODE+1 ;;NUMBER OF DIGITS TO TYPE 
ADD #2, (SP) :;ADJUST RETURN ADDRESS 
BR STYPON . 
011743 $TYPOC: MOVB #1,S0F ILL 3;SET THE ZERG FILL SWITCH 
011745 MOVB #6,S0M0DE+1 3:;SET FOR SIX(6) DIGITS 
011742 $TYPON: MOVB #5,SO0CNT 3:SET THE ITERATION COUNT 
MCV R3,-(SP) > SAVE R3 
MOV R4,-(SP) 3: SAVE R4 
MOV R5,-(SP) 7; SAVE R5 
~ 4% SOMODE+1,R4 3:GET THE NUMBER OF DIGITS TO TYPE 
NEG 4 
ADD #6,R4 ;: SUBTRACT IT FOR MAX. ALLOWED 
MOVB R4,SOMODE 3; SAVE IT FOR USE 
MOVB SOFILL,R4 3;GET THE ZERO FILL SWITCH 
MOV 12(SP),R5 3;PICKUP THE INPUT NUMBER 
CLR R3 3;CLEAR THE OUTPUT WORD 
18: ROL R5 ;;ROTATE MSB INTO ‘'C"’ 
BR 3$ 3:G0 DO MSB 
2$: ROL R5 s;FORM THIS DIGIT 
ROL R5 
ROL R5 
MOV R5,R3 
3$: ROL R3 :;GET LSB OF THIS DIGIT 
DECB SOMODE 3; TYPE THIS DIGIT? 
BPL 7$ 23 IF NO 
BIC #177770,R3 3:GEl RID OF JUNK 
BNE 4 >: TEST FOR 0 
TST R4 >; SUPPRESS THIS 0? 
BEQ 5$ ;:BR IF YES 
4$: INC RG ;;DON'T SUPPRESS ANYMORE 0'S 
BIS #'O,R3 3;MAKE THIS DIGIT ASCII 
5$: BIS a’ RS s;MAKE ASCI] IF NOT ALREADY 


ee ee —i‘i‘“_ié‘i‘“COC CC“ —— 


SEQ 0055 


ee ed ed od 
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(ASCI11) AND TYPE 


110337 


0 
000000 
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000002 000004 


;;SAVE FOR TYPING 

3;G0 TYPE THIS DIGIT 

;;COUNT BY 1 

;:BR IF MORE TO DO 

;;BR IF DONE 

:; INSURE LAST DIGIT ISN'T A BLANK 
;:GO DO THE LAST DIGIT 

; RESTORE R5 


ee R3 
:;SET THE STACK FOR RETURNING 


; ;RETURN 

;; STORAGE FOR ASCI1 DIGIT 

;; TERMINATOR FOR TYPE ROUTINE 
;;OCTAL DIGIT COUNTER 

+:ZERO FILL SWITCH 

::NUMBER OF DIGITS TO TYPE 








1759 


46 


eet ne st os ow = ow ws —* 
+ 


ooo 
NNN 
ono 


2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 


ad aad cad ced cat ct ent ca cad etd ee ee ee 
WAN MPN — — OOOO 
FMOS LMONOG FNS 
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TO DECIMAL AND TYPE ROUTINE 
- SBTTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 


020200 
000020 


000055 


012162 
000040 


012152 


000001 
000060 
000040 


000010 


177777 


012162 


MARA ASAARARRRRSALASESSSLALEL ESE SESE EEE EEE ESE EEE TESS SESSA SEES 


:*THIS ROUTINE I$ USED TO CHANGE A 16-BIT BINARY NUMBER TO A 5-DIGIT 
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s*SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE 


;*NUMBER 1S POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED 
;*BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE 


ee WITH SPACES. 


se 
$TYPDS: 


000901 
1$: 


177777 
7$: 


8$: 


177776 
9$: 


> *CAL 


NUM ,-(SP) 


RO,-(SP) 


’ 


(SP) 


6 

(SP)+ 

9$ 
~1(SP),-2(R3) 
(R3) 


(SP)+,R5 
(SP)+,R3 
(SP)+,R2 
(SP)+,R1 
(SP)+,R0 
, SDBLK 





;;PUT THE BINARY NUMBER ON THE STACK 
::G0 TO THE ROUTINE 


3;PUSH RO ON STACK 
3;PUSH R1 ON STACK 


3;PUSH R2 ON STACK 


;;PUSH R3 ON STACK 

;;PUSH R5 ON STACK 

::SET BLANK SWITCH AND SIGN 
:;GET THE INPUT NUMBER 

::;BR IF INPUT IS POS. 

;;MAKE THE BINARY NUMBER POS. 
:;MAKE THE ASCI] NUMBER NEG. 
:;ZERO THE CONSTANTS INDEX 
;;SETUP THE OUTPUT POINTER 
>;SET THE FIRST CHARACTER TO A BLANK 
;:CLEAR THE BCD NUMBER 

;;GET THE CONSTANT 

+3 FORM THIS BCD DIGIT 


SYES-“SET THE SIGN 

:;MAKE THE BCD DIGIT ASCII 
;;MAKE IT A SPACE IF NOT ALREADY A 
;:PUT THIS CHARACTER IN THE OUTPUT BUF 
;:JUST INCREMENTING 

;;CHECK THE TABLE INDEX 

::GO DO THE NEXT DIGIT 


;BR IF 


DONE 
:: INCREASE THE BCD DIGIT By 1 


;:ADD BACK THE CONSTANT 
3:CHECK IF BCD DIGIT=0 
3;FALL THROUGH IF 0 

+e STILL DOING LEADING 0'S? 
A 


YES 
IF N 


+360 TO EXIT 


sGET 


THE LSD 
0 CHANGE TO ASCII 
:IWAS THE LSD THE FIRST NON-ZERO? 


B 
ie YES~*SET THE SIGN FOR TYPING 
T THE TERMINATOR 


DIG 


IT 
FER 


SEQ 0055 





. 
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CONVERT BINARY TO DECIMAL AND TYPE ROUTINE SEQ 0056 






012140 016666 000002 000004 MOV 2(SP) ,4(SP) ;;ADJUST THE STACK 
012146 912616 MOV (SP)+, (SP) 

012150 000002 RTI ;;RETURN TO USER 
012152 023420 $DTBL: 10000. 

012154 001750 1000. 

012156 000144 100. 

012160 000012 10. 

012162 $DBLK: .BLKW 4 
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1761 


2 
2 
2 
2 
2 
2204 
2 
2 
2 
2 
2 


104407 


104401 


005777 
100002 
000000 
104407 


000002 


004737 
104407 
000207 


001103 


001102 
002000 


001160 


166646 
020000 


012306 
001165 


166642 


012316 
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166730 
166720 


001116 
001114 
166660 





- SBTTL ERROR HANDLER ROUTINE 
peeeeeeeeeereererertereererererereeeereneeeeKeeeereeeeeeereeee 
THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 
>; *SAVE THE ERROR ITEM ee AND THE ADDRESS OF THE ERROR CALL 
;*AND GO TO SWRCK ON ERROR 
se THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 

Swi5= HALT 0 R 


N ERRO 
seeui se 1 INHIBIT ERROR TYPEOUTS 
= *SW10=1 BELL ON ERROR 
s*CALL 
Tia ERROR N ;;ERROR=EMT AND N=ERROR ITEM NUMBER 
SERROR: 
CKSWR TEST FOR CHANGE IN SOFT=-SWR 
CKSWR ;60 LOOK’ FOR SWR CHANGE 
7$: INCB SERFLG :3SET THE ERROR FLAG 
BEQ 7$ ;DON'T LET THE FLAG GO 10 ZERO 
MOV STSTNM,QDISPLAY > :DISPLAY TEST NUMBER AND ERROR FLAG 
BIT #B1T10,aSwR ;:;BELL ON ERROR? 
BEQ 1$ : 3:NO - SKIP 
TYPE , SBELL scRING BELL 
1$: INC SERTIL ;;COUNT THE NUMBER OF ERRORS 
MOV (SP) ,SERRPC 3:GET ADDRESS OF ERROR INSTRUCTION 
SUB #2, SERRPC 
MOVB A@SERRPC,SITEMB ;;STRIP AND SAVE THE ERROR ITEM CODE 
BIT #B1T13,aSwR 3;SKIP TYPEOUT IF SET 
BNE 208 >; SKIP TYPEOUTS 
JSR PC,SWRCK 3:G0 TO USER ERROR ROUTINE 
TYPE ,SCRLF 
208: 
2s: TST aSwR ;;HALT ON ERROR 
BPL 3$ 3; SKIP IF CONTINUE 
HALT ;;HALT ON ERROR! 
- CKSWR 3: TEST FOR CHANGE IN SOFT=SwWR 
RT] ; ;RETURN 


“PRR teteeereeeereeeeeeeeeeeeteeekteetenaeeeteeeeeteeteeese 


[60 TYPE ERROR 
[GO UPDATE SOFTWARE SWR IF "CNTRL/G' 


SL eeereeererererererereetereereereneeeneKAeKenenaeteneeeeearenese 


SWRCK: JSR PC, SERRTYP :GO TYPE ERROR 
CKSWR 7GO LOOK FOR SWR CHANGE 
RTS PC ;RETURN TO ERROR HANDLER 


SEQ 0057 















1770 


340 


oo°oo°o 


2376 


ee ee ee ed eed 


12414 
12416 


12432 


12440 
12446 


lelelelelelejejlelelelelelelelelolelolololololol—-l~) 
— 
Nm 
> 
> 
> 


104401 
010046 
005000 
153700 
001004 


013746 
104402 


000207 


013046 
104402 
005710 
001770 
104401 
000771 

040 
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001165 


001114 


001116 


001170 
012370 


001165 
012406 


001165 


001165 


012446 
040 


en 
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» SBTTL ERROR MESSAGE TYPEOUT ROUTINE 


;eetereerereeeerererereeereerevereeeeeeeetereeeteeeteneeeeeeetene 


PATHS ROUTINE USES THE "‘ITEM CONTROL BYTE’ ($1 TEMB) TO DETERMINE WHICH 


+ "ERROR IS TO BE REPORTED. IT THEN OBTAINS, FROM THE ‘‘ERROR TABLE’ (SERRTB), 


;*AND REPORTS THE APPROPRIATE INFORMATION CONCERNING THE ERROR. 


SERRTYP: 
TYPE » SCRLF 37 "CARRIAGE RETURN’ & “LINE FEED’ 
MOV RO,-(SP) 3; SAVE RO 
CLR RO ;;PICKUP THE ITEM INDEX 
B1ISB a#$1TEMB,RO 
BNE 1$ 7: 1f ITEM NUMBER IS ZERO, JUST 
3: TYPE THE PC OF THE ERROR 
MOV SERRPC,-(SP) 7; SAVE SERRPC FOR TYPEOUT 
; sERROR ADDRESS 
TYPOC 360 — ASCII(ALL DIGITS) 
BR 6$ GET OUT 
1$: DEC RO ;;ADJUST THE INDEX SO THAT IT WILL 
ASL RO 28 WORK FOR THE ERROR TABLE 
ASL RO 
RO 
#SERRTB,RO 37:FORM TABLE POINTER 
(RO)+,2$% 7;PICKUP ‘ERROR MESSAGE’ POINTER 
3$ 3;SKIP TYPEOUT IF NO POINTER 
3: TYPE THE ‘‘ERROR MESSAGE"’ 
2$: 0 37"‘ERROR MESSAGE’’ POINTER GOES HERE 
 SCRLF 3:°"CARRIAGE RETURN’ @ “LINE FEED" 
3$: (RO)+,4% 7;PICKUP ‘‘DATA HEADER’ POINTER 
5$ ;;SKIP TYPEOUT IF 0 
7; TYPE THE ‘‘DATA HEADER'’ 
4$: 0 3:'‘DATA HEADER'’ POINTER GOES HERE 
/SCRLF 3:°"CARRIAGE RETURN’ & “LINE FEED’ 
5$: (RO) ,RO :;PICKUP '‘DATA TABLE'’ POINTER 
7$ 3:GO TYPE THE DATA 
o$: (SP)+,RO > RESTORE RO 
SCRLF 3:''CARRIAGE RETURN’ & “LINE FEED" 
- PC 7; RETURN 
a(RO)+,-(SP) 3s; SAVE a(RO)+ FOR TYPEQUT 
3:GC TYPE--OCTAL ASCII(ALL DIGITS) 
(RO) iis THERE ANOTHER NUMBER? 
6$ :BR IF NO 
8s i: TYPE TWO(2) SPACES 
e BR 7$ : LOOP 
000 8$: : a “TW0(2) SPACES 





SEQ 0058 




















1772 


012452 
012452 
012454 


012450 


104407 
104407 


000416 
013746 


000406 


105237 
011637 
105037 
013777 
013716 
000002 
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600004 
012504 
177060 
000004 


000004 


001102 
001106 
001103 
001102 
001106 
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166404 
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.SBITL SCOPE HANDLER ROUTINE 

pe terererriereeeereeeeeereee eter eee eeeeeeeteeReeeeeeeeeeeeeeee 
:*THIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT 
;*AND LOAD THE TEST NUMBER(STSTNM) INTO THE DISPLAY REG. (DISPLAY<7:0>) 
:*AND LOAD THE ERROR FLAG (SERFLG) INTO DISPLAY<15:08> 


:;TEST FOR CHANGE IN SOFT=SWR 
;G0 tee Ra SWR CHANGE 
TESTERMM 
icf RUNNING ON THE ‘'XOR'’ TESTER CHANGE 
:: THIS INSTRUCTION TO A ‘'NOP'’ (NOP=240) 
;;SAVE THE CONTENTS OF THE ERROR VECTOR 
:;SET FOR TIMEOUT 
:: TIME OUT ON XOR? 
; RESTORE THE ERROR VECTOR 
;:GO TO THE NEXT TEST 
7;CLEAR THE STACK AFTER A TIME OUT 
: sRESTORE THE ERROR VECTOR 
LOOP ON THE PRESENT TEST 


SOVE 
Sietens FOR THE KOR. TESTERMAMMM 


;COUNT TEST NUMBERS 
: SAVE SCOPE LOOP ADDRESS 
;ZERO THE ERROR FLAG 


STSTNM,@DISPLAY ::DISPLAY TEST NUMBER 


:;FUDGE RETURN ADDRESS 


: SCOPE >; SCOPE=10T 
SSCOPE: 
CKSWR 
CKSWR 
;AMHAHSTART OF CODE FOR THE XOR 
$XTSTR: BR 6$ 
MOV Q@#ERRVEC,-(SP) 
MOV #5$, aMERRVEC 
TST a#177060 
MOV (SP)+ ,a#ERRVEC 
BR $SVLAD 
S$: CMP (SP)+,(SP)+ 
MOV (SP)+, aMERRVEC 
BR R 
6$:;M#HNAEND OF 
$SVLAD: INCB 
MOV (SP), suPape 
CLRB SERFLG 
$CVER: MOV 
Rov SLPADR, (SP) 


:3FIXES PS 


7% 
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TTY INPUT ROUTINE SEQ 0060 
1774 » SBTTL TTY INPUT ROUTINE 
Se eeeeeeeeeeeeeeeereeeeeeee ete eteeeeeteeecereteeeeeeeeeeeTeeee 
-ENABL LSB 


peeeerteeeeeneteeeeeeteeeeeeteteeeeeeeeeeteeeeTeneeeeteeeTetete 

: * SOF TWARE SWITCH REGISTER CHANGE ROUTINE. 

:*ROUTINE IS ENTERED FROM THE TRAP HANDLER, AND WIL 

;*SERVICE THE TEST FOR CHANGE IN SOFTWARE SWITCH REGISTER TRAP CALL 
;*WHEN OPERATING IN TTY FLAG MODE. 


012544 022737 000176 001140 $CKSWR: CMP ASWREG, SWR :31S THE SOFT-SWR SELECTED? 
012552 001074 BNE 15$ ;;BRANCH IF NO 

012554 105777 166364 TSTB astKs +3 CHAR THERE? 

012560 100071 BPL 15$ :1F NO, DON'T WAIT AROUND 
012562 117746 166360 MOVB @$TKB,-(SP) i 3 SAVE THE CHAR 

012566 042716 177600 BIC #°C177, (SP) :STRIP-OFF THE ASCII 

012572 022726 000007 CMP #7, (SP)+ 1S 117 A CONTROL G? 

012576 001062 BNE 15$ :;NO, RETURN TO USER 

012600 123727 001134 000001 CMPB $AUTOB, #1 ;;ARE WE RUNNING IN AUTO-MODE? 
012606 001456 BEQ 15$ ;;BRANCH IF YES 

012610 104401 013271 TYPE »$CNTLG ::ECHO THE CONTROL-G (“G) 
012614 104401 013276 $GTSWR: TYPE , SMSWR 7 TYPE CURRENT CONTENTS 
012620 013746 000176 MOV SWREG,-(SP) ::SAVE SWREG FOR TYPEOUT 
012624 104402 TYPOC 3;GO0 TYPE--OCTAL ASCII(ALL DIGITS) 
012626 104401 013307 TYPE , SMNEW ;;PROMPT FOR NEW SWR 

012632 005046 19$: CLR -(SP) ;; CLEAR COUNTER 

012634 005046 CLR - (SP) 7; THE NEW SWR 

012636 105777 166302 7$: TSTB astKs ;;CHAR THERE? 

012642 100375 BPL 7$ ::1F NOT TRY AGAIN 

012644 117746 166276 MOVB a$TKB,-(SP) ::PICK UP CHAR 

012650 042716 177600 BIC #*°C177, (SP) 73;MAKE IT 7-BIT ASCII 

012654 021627 000025 9$: CMP (SP) #25 3:18 11 A CONTROL-U? 

012660 001005 BNE 10$ ;;BRANCH IF NOT 

012662 104401 013264 TYPE ,$CNTLU 2:YES, ECHO CONTROL-U (“U) 
012666 062706 000006 208: ADD #6,SP :;1GNORE PREVIOUS INPUT 
012672 000757 BR 19$ ;;LET'S TRY IT AGAIN 

012674 021627 000015 10$: CMP (SP) #15 3:18 1T A <CR>? 

012700 001022 BNE 16$ : BRANCH IF NO 

012702 005766 000004 TST 4 (SP) YES, 1S 1T THE FIRST CHAR? 
012706 001403 BEQ 11$ ::BRANCH IF YES 

012710 016677 000002 166222 MOV 2(SP) ,aSwR 7: SAVE NEW SWR 

012716 062706 000006 11$: ADD #6,SP ::CLEAR UP STACK 

012722 104401 001165 148: TYPE , SCRLF ;;ECHO <CR> AND <LF> 

012726 123727 001135 000001 CMPB SINTAG,#1 ;:RE-ENABLE TTY KBD INTERRUPTS? 
012734 001003 BNE 15$ ;;BRANCH JF NOT 

012736 012777 000100 166200 MOV #100,a$TKS :;RE-ENABLE TTY KBD INTERRUPTS 
012744 000002 15$: RT] > ;RETURN 

012746 004737 011450 16$: JSR PC ,STYPEC >:ECHO CHAR 

012752 021627 000060 CMP (SP) ,#60 ;;CHAR < 0? 

012756 002420 BLT 18$ : ;BRANCH IF YES 

012760 021627 000067 CMP (SP) ,#67 :CHAR > 7? 

012764 003015 BGT 18$ ::BRANCH IF YES 

012766 042726 600060 BIC #60, (SP)+ i: STRIP-OFF ASCII 

012772 005766 000002 TST 2(SP) 3:18 THIS THE FIRST CHAR 
012776 001403 BEQ 17% ;;BRANCH IF YES 

013000 006316 ASL (SP) ::NO, SHIFT PRESENT 

013002 006316 ASL (SP) ::; CHAR OVER TO MAKE 
013004 006316 ASL (SP) ;; _ ROOM FOR NEW ONE. 
013006 005266 000002 17$: INC 2(SP) ;;KEEP COUNT OF CHAR 





— + ee -_— 
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TTY INPUT ROUTINE SEQ 0061 
013012 056616 177776 BIS -2(SP), (SP) ;;SET IN NEW CHAR 
013016 000707 BR 7$ 3;GET THE NEXT ONE 
013020 104401 001164 18$: TYPE ,SQUES 7; TYPE 2?<CR><LF> 
013024 000720 BR 20$ >; SIMULATE CONTROL-U 
-DSABL LSB 
Sy eeeeraereeeeeeeeeeeeeeereeeeereeeeeeeeeeeeeteeekeAteKreteeee ess 
Pt ey ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 
> *CALL: 
:* RDCHR 3; INPUT A SINGLE CHARACTER FROM THE TTY 
:* RETURN HERE ;; CHARACTER IS ON THE STACK 
:* ::WITH PARITY BIT STRIPPED OFF 
013026 011646 $RDCHR: MOV (SP) ,=(SP) ;;PUSH DOWN THE PC 
013030 016666 000004 000002 MOV (SP) ,2(SP) pees THE PS 
013036 105777 166102 1$: TSTB asTKs WAIT FOR 
013042 100375 BPL 1$ uA CHARACTER 
013044 117766 166076 0600004 MOVB a$TKB,4(SP) ;;READ THE TTY 
013052 042766 177600 000004 BIC W°C<177>,4(SP) :3GET RID OF JUNK IF ANY 
013060 026627 000004 000023 CMP 4 (SP) #23 3:18 IT A CONTROL-S? 
13066 001013 BNE 3$ ;;BRANCH IF NO 
013070 105777 166050 2$: TSTB asTKS ;;WAIT FOR A CHARACTER 
013074 100375 BPL 2$ ;;LOOP UNTIL ITS THERE 
013076 117746 166044 MOVB a$TKB,-(SP) ;:GET CHARACTER 
013102 042716 177600 BIC #*°C177, (SP) 7;MAKE IT 7-BIT ASCII 
013106 022627 000021 CMP (SP)+,#21 3:18 IT A CONTROL-Q? 
013112 001366 BNE 2$ ::1f NOT DISCARD IT 
013114 000750 BR 1$ 7: YES, RESUME 
013116 026627 000004 000140 38: CMP 4(SP) ,#140 ::1S 11 UPPER CASE? 
013124 002407 BLT 4$ ;;BRANCH IF YES 
013126 026627 000004 000175 CMP 4(SP) #175 31S IT A SPECIAL CHAR? 
013134 003003 BGT 4$ ;;BRANCH IF YES 
013136 042766 000040 000004 BIC #40,4(SP) ;;MAKE IT UPPER CASE 
013144 000002 4$: RTl ;;G0 BACK TO USER 


SP RAAAA ARATE ETAT ETAT EAA AEA e Oe 


7*THIS ROUTINE WILL INPUT A STRING FROM THE TTY 


*CALL: 
td RDLIN +3 INPUT A STRING FROM THE TTY 
:* RETURN HERE sADDRESS OF FIRST CHARACTER WILL BE ON THE STACK 
sf 3 TERMINATOR WILL BE A BYTE OF ALL O'S 

013146 010346 $RDLIN: MOV R3,-<(SP) s SAVE R3 

013150 012703 013254 1$: MOV #STTYIN,RS + GET ADDRESS 

013154 022703 013264 2$: CMP MSTTYINGS. RS ;;BUFFER FULL? 

013160 101405 BLOS 4% 7:BR IF YES 

013162 104410 RDCHR :;GO READ ONE CHARACTER FROM THE TTY 

013164 112613 MOVB (SP)+,(R3) ,;GE7 CHARACTER 

013166 122713 000177 10$: CMPB #177, (R3) 51S IT A RUBOUT - 

013172 001003 —— BNE 3$ 3: SKIP IF NOT 

013174 104401 001164 4$: TYPE , SQUES 3: TYPE A ‘?° 

013200 000763 BR 1$ Hiry THE BUFFER AND LOOP 

013202 111337 013252 3$: MOVB (R3),9% sECHO THE CHARACTER 

013206 104401 013252 TYPE 9% 

013212 122723 000015 CMPB #15, (R3)¢ 3; CHECK FOR RETURN 

013216 001356 BNE 2$ ;;LOOP IF NOT RETURN 

013220 105063 177777 CLRB -1(R3) i CLEAR RETURN (THE 15) 

013224 104401 001166 TYPE , SLf ;TYPE A LINE FEED 

013230 012603 MOV (SP)+,R3 : RESTORE R3 

013232 011646 MOV (SP) ,-(SP) sADJUST THE STACK AND PUT ADDRESS OF THE 
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013234 016666 000004 000002 MOV 4(SP) ,2(SP) os FIRST ASCII CHARACTER ON IT 
013242 012766 013254 000004 MOV WSTTYIN,G(SP) 

013250 000002 RTl 3; RETURN 

013252 9$: -BYTE 0 : STORAGE Ay ASCI1 CHAR. TO TYPE 
013253 000 -BYTE 0 7; TERMINA 

013254 STTYIN: .BLKB_ 8. > ;RESERVE "3. BYTES FOR TTY INPUT 
013264 136 125 O15 SCNTLU: .ASCIZ /*U/<15><12> ;;CONTROL *'U"’ 

013267 012 000 

013271 136 107 015 $CNTLG: .ASCIZ /*G/<15><12> ;;CONTROL ‘'G"’ “ 
013274 012 C00 

013276 015 012 123° SMSWR: .ASCIZ <15><12>/SWR = 

013301 127 122 040 

013304 075 040 000 

013307 040 040 116 SMNEW: = .ASCIZ / NEW = / 

0133i2 105 127 040 

013315 075 040 000 
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CZDRKAO DR11-4 INTRPROC EXER 
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le ed 


000004 000002 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 





SEQ 0063 


» SBTTL TRAP DECODER 
peeeeereeerereretereeeeerererereeeeereteKeeeeeeeeeeeAeeA Eee Eee 
STHIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE ‘‘TRAP’’ INSTRUCTION 
;*AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
:*OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
ia, TO THAT ROUTINE. 


MOV RO, -(SP) 3; SAVE_RO 

MOV 2(SP),R0 ;;GET TRAP ADDRESS 

TST -(RO) ;;BACKUP BY 2 

MOVB (RO) ,RO ;;GET RIGHT BYTE OF TRAP 
CMP #STERM,RO += CHECK FOR OUT OF BOUNDS 
BGT -*6 :BR IF OK 

HALT :;0UT OF BOUNDS 

BR 72 A GUP 

ASL RO ;POSITION FOR INDEXING 


MOV STRPAD RO) ,RO : INDEX TO TABLE 
RTS RO :G0 TO ROUTINE 
3;THIS IS USE TO HANDLE THE “GETPRI" MACRO 


STRAP2: MOV (SP) ,-(SP) 7;MOVE THE PC DOWN 
MOV 4(SP) ,2(SP) 3;MOVE THE PSW DOWN 
RT 7;RESTORE THE PSW 


| 
-SBTTL TRAP TABLE 
;*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
;*BY THE ‘‘TRAP’’ INSTRUCTION. 
; ROUTINE 
STRPAD: .WORD $TRAP2 
STYPE ;;CALL=TYPE TRAP#+1(104401) TTY TYPEOUT ROUTINE 
$TYPOC ;;CALL=TYPOC TRAP#2(104402) TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
$TYPOS ;;CALL=TYPOS TRAP+3(104403) TYPE OCTAL NUMBER (NO LEADING ZEROS) 
STYPON ;;CALL=TYPON TRAP+4(104404) TYPE OCTAL NUMBER (AS PER LAST CALL) 
STYPDS ;;CALL=TYPDS TRAP+5(104405) TYPE DECIMAL NUMBER (WITH SIGN) 
$GTSWR ;;CALL=GTSWR TRAP+6(104406) GET SOFT-SWR SETTING 
SCKSWR ;;CALL=CKSWR TRAP+7(104407) TEST FOR CHANGE IN SOFT=SWR 
SRDOCHR ;;CALL=ROCHR TRAP+10(104410) TTY TYPEIN CHARACTER ROUTINE 
SRDLIN ;;CALL=RDLIN TRAP#+11(104411) TTY TYPEIN STRING ROUTINE 
RESYNC ;;CALL=RSYNC TRAP#12(104412) RESYNC PROGRAM 
STERM=.-$TRPAD 


M 
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TRAP TABLE SEQ 0064 
4 ;,eeeeeeeeeereeeeeeeeee eee e eee eeKeKeetkeeteteKeeeteeeeeee 
1784 -SBTTL INTERBOARD COMMUNICATION SUBROUTINES 
1785 ;WTCMPN 
HA SEAR EA ERATE EEE TAREE EAAT ETHER EKTHAReA eee eee ees 
1 ‘ 

1788 013414 012737 010000 001436 WICMPN: MOV #10000, ABORT ;SETUP ABORT TIMER 

1789 013422 032777 001000 165770 BIT #1000,aCSR 

8 013430 001010 BNE 2$ :1F DSTATC IS ONE,WAIT FOR 0 
1792 

1793 013432 032777 001000 165760 18: BIT #1000,aCSR ;WAIT FOR DSTATC=1 

1794 013440 001017 BNE 4$ :GO AHEAD; 1T HAS COME 

1795 013442 005337 001436 DEC ABORT 

1796 013446 001371 BNE 1$ :1F NOT STUCK IN WAIT LOOP, 
1797 sKEEP WAITING 

1798 013450 000407 BR 3$ :WAITED TOO LONG; ABORT PROGRAM 
1799 013452 032777 001000 165740 2$: BIT #1000,aCSR sWAIT DSTATC=0 

1800 013460 001407 BEQ 4$ :GO AHEAD; 1T HAS COME 

1801 013462 005337 001436 DEC ABORT sKEEP WAITING 

‘ont 013466 001371 BNE 2$ 

1804 013470 011637 001440 3$: MOV (SP), TESTPC SAVE LOCATION WHERE PROGRAM 
1805 ; ORIGINATED 

1806 013474 104016 104000416 

1807 013476 104412 RSYNC ;RESYNCHRONIZE BOTH PROGRAMS 
1808 FROM START 

1809 013500 000207 4$: RTS PC 

1810 

1811 

1812 ; ye eekeneeeeeee eee IRORRRBABRARRRBSARASASSRSSESASES SERRE RRR SERS RSS SE SD 
1813 ;GOCMPN 

1814 Pp eeeeeaeeeeeee eee eee eee eee eee eaeekeeteaeeeeeeeeee 
1815 

1816 013502 GOCMPN: 

1817 013502 032777 000002 165710 BIT #2,aCSR 718 F1 CLR? 

1818 013510 001415 BEQ 1$ :1F SO,SET FI 

1819 013512 017737 165702 001446 MOV aCSR, TEMP 

1820 013520 042737 100000 091446 BIC #B1T15, TEMP 

1821 013526 042737 000002 001446 BIC #2, TEMP :F1 IS SET,CLR IT 

1822 013534 013777 001446 165656 MOV TEMP ,aCSR 

1823 013542 000207 RTS PC 

1824 0135544 017737 165650 001446 1$: MOV acSR, TEMP 

1825 013552 042737 100000 001446 BIC #B1T15, TEMP 

1826 013560 052737 000002 001446 BIS #2, TEMP 

1827 013566 013777 001446 165624 MOV TEMP ,aCSR 

1828 015574 000207 RTS PC 

BS 





rictctetetcers 
FW GBSRIFAEAS 


FEFF F 
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1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


000207 


012737 
000207 


023727 


000207 
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~SBTTL CPU PRIORITY SUBROUTINES 


;, teeta eeerereeteeeeeeeereeeeeerereeeeeReneeneReeeeteteeeeAtene 


7 CPUHI 


po eeeeeeeeeeeerinetetereeretetetetetereeeeeataeeKAKeeeeeeeAeeeeet 


CPUHI: 
BOARD ,#126 31S THIS CPU LS]? 
BNE 1$ 3NO,I1T IS UNIBUS 
106427 
2006 
RTS PC 
1$: MOV #340,PS ;SET HIGH PRIOR. IN UNIBUS 
RTS PC 
SCRA A AAA RETA ETA AEE E TERE AAA EAA EEE TEA AAAs 
3; CPULO 
SCRA RETREAT EAA EAE E EEE AAA TAHA AERA 
CPULO: 
CMP BOARD ,#126 
BNE 1$ 
106427 
0 
RT PC 
1$: MOV #0,PS 
RTS PC 


— 





Se a 


a Cee 
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1858 .SBITL INTERPROCESSOR PROGRAM RESYNCHRONIZATION ROUTINE 
1859 ;,eeeeeereereereeeeereereteeetereeeereeraneeteeteeteareKeeeeAeees 
1860 RSYNC 
H+ +24 ; eee eeeeeeeeeekereteeeteteeeeeteeeeeeeteKeeeeeeeeteetteteeteeeee 
1 
1863 013652 004737 011200 RESYNC: JSR PC RSTVEC 
1864 013656 012706 001100 MOV #STACK, SP 
1865 013662 005737 001452 ist MSTER sWAS THIS CPU STARTED AS MASTER? 
1866 013666 001404 BEQ MRDELY YES 
1867 013670 012737 000017 001444 SLDELY: MOV #15. TIME ;SLAVE CPU;WAIT FOR MASTER TO REACH ITS 
1868 ic ;RESYNC ROUTINE 
1869 013676 000403 BR WISYNC | 
1870 013700 012737 000036 001444 MRDELY: MOV #30., TIME 
1871 013706 WISYNC: 
1872 013706 005001 1$: CLR RI 
1873 013710 005301 2$: DEC RI 
1874 013712 001376 BNE 2$ 
1875 013714 005337 001444 DEC TIME 
1876 013720 001372 BNE 1$ 
1877 013722 000005 RESET 
1878 013724 104401 013732 TYPE ,65$ s; TYPE ASCIZ STRING 
013730 000407 BR 64$ ::GET OVER THE ASCIZ | 
32658: .ASCIZ <CRLF>/*RESYNC.../<CRLFD | 
013750 643: 
1879 013750 000137 002742 JMP = SYNCST | 
; 
1881 -SBTTL ASCII MESSAGES 
1882 013754 124 105 123, EMI: -ASCII /TEST 1 STATUS: MASTER/<CRLF> j 
013757 124 040 061 
013762 040 040 040 
013765 040 123 124 
013770 101 124 125 
013773 123 072 040 
013776 115 101 123 
014001 124 105 122 
014004 200 
1883 014005 123 114 101 -ASCIZ /SLAVE FAILED TO ECHO DBR CONTENTS/ 
014010 126 105 040 | 
014013 106 ~=—«:101 111 | 
014016 114 105 104 
014021 040 124 117 
014024 040 105 103 | 
014027 110 117 040 
014032 104 102 122 
014035 040 103 117 
014040 116 124 105 
014043 116 124 123 
014046 000 
1884 014047 040 123 124 EM2: ASCII / STATUS: MASTER/<CRLF> | 
014052 101 124 125 
014055 123 072 040 
014060 115 101 123 
014063 124 105 122 
014066 200 | 
1885 014067 123 114 101 -ASCIZ /SLAVE FAILED TO ECHO ‘STAT’ BITS/ 
016072 126 105 040 | 
014075 106 101 111 1 
| 
ai 
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ASCI11 MESSAGES SEQ 0067 

014100 114 105 104 
014103 040 124 117 
014106 040 105 103 = 
014111 110 117 040 ; 
014114 047 123 124 
014117 101 124 047 
014122 040 102 111 
014125 124 123 000 Tere 

1886 014130 040 123 124 EM3: sASCIL = / STATUS: MASTER/<CRLF> 
014133 101 124 125 
014136 123 072 040 
014141 115 101 123 
014144 124 105 122 
014147 200 

1887 014150 106 101 111 -ASCIZ /FAILED TO INTR ON A ‘DATI'/ 
014153 114 105 104 
014156 040 124 117 
014161 040 11 116 
014164 124 122 040 
014167 117 116 040 
014172 101 040 047 
014175 104 101 124 
014200 111 047 009 

1888 014203 040 123 124 EM4: -ASCII] / STATUS: MASTER/«<CRLF> 
014206 101 124 125 
014211 123 072 040 
014214 115 101 123 
014217 124 105 122 
014222 200 

1889 014223 123 124 101 sASCIZ = /STATUS ER ON 'DATI'/ 
014226 124 125 123 
014231 040 105 122 
014234 040 117 116 
014237 040 047 104 
014242 101 124 111 
014245 047 000 

1890 014247 040 123 124 EMS: -ASCII] = / STATUS: MASTER/<CRLF> 
014252 101 124 125 
014255 123 072 040 
014260 115 101 123 
014263 124 105 122 
014266 200 , 

1891 014267 127 117 122 -ASCIZ /WORD COUNT ER ON ‘DATI'/ 
014272 104 040 103 
014275 117 125 116 
014300 124 040 105 
014303 122 040 117 
014306 116 040 047 
014311 104 101 124 
014314 111 047 000 

1892 014317 040 123 124 EM6: eASCI] = / STATUS: MASTER/<CRLF> 
014322 101 124 125 
014325 123 072 040 
014330 115 101 123 
014335 124 105 122 
014336 200 

1893 014537 102 125 106 -ASCIZ2 /BUFFER ADRS ER ON ‘DATI'/ 
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ASCI1 MESSAGES ; SEQ 0068 


Fe  _et 


1894 124 EM7: sASCI] / STATUS: SLAVE/<CRLF> 


1895 -ASCIZ /FAILED TO INTR ON A ‘DATO'/ 


0 0 
1896 err 124 EM10: «ASCII / STATUS: SLAVE/<CRLF> 


-ASCIZ /STATUS ER ON 'DATO'/ 


* 

= 

oO 

~s 
et et st 9 EO os 41 OO os Ss 4 OO" On oS | OO 
MMMMNO FS —-OO— WF FH OQNNMN OL ONS —ONfO 
FWOWN HONS HN FOOFOOWW HOOF NNUYINOO 


0 
1897 bree #: 


—9O— wNO 


0 
1898 betsy 040 EM11: ASCII] / STATUS: SLAVE/<CRLF> 


a 


0 
1899 Beass -ASCIZ /WORD COUNT ER ON “DATO’/ 


-—-OoO— — | OO — |" 0 — Ot 4 OS |" OS OO SO 


MMNMOONO HNL OF &LNM FS HOM NNNODN & HS ONIN OAH NNN F OF SNH NOOO AHNANINND —O—NRNOO 
Ww WIM PF Ww = OOOWO NUE NM FW F&F NN EWEN FW MOON SMH FNS FMEA SH FOTRWR uN 


oo 


1900 014554 EM12: -ASCI1 / STATUS: SLAVE/<CRLF> 


1901 014573 -ASCI1Z /BUFFER ADRS ER ON ‘DATO'/ 


DOL OOF OF NNUYUAWNO- OU NE OMW— 


a eT eee 
ON F OOMNNO F&F —- OH] NWN —- DNNNMNO 
WNMIOFNMO WWW ONE OM ENE NOW— 
oo —— = O — = O - OS eS SS ON 
 FOWOOCOC LS WwNON FO ONMOOFNwN 


—o ee es os os tO —* CO —" CE 
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ASCI1 MESSAGES 


014612 


1 
1 
1 
1 
1 
15034 
1 
1 
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1 
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E 6 
MACRO M1111 24-AUG-79 14:19 PAGE 46-3 


-ASCI1 


~ASCIZ 


-ASCI1 


-ASCI2 


ASCII 


-ASCI1 


-ASCI2 





/ STATUS: SLAVE/<CRLF> 


/DATA ER ON ‘DATO'/ 


/STATUS: SLAVE/<CRLF> 


/READY BIT WAS SET = IT SHOULD BE CLEAR/<CRLF> 





/ STATUS: MASTER/<CRLF> 


/MASTER CANNOT START COMMUNICATION WITH SLAVE-/ 


/WALTING FOR DSTATC /<CRLF> 


SEQ 0070 
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ASCI1 MESSAGES 


015322 125 120 124 
015325 040 124 117 
015330 040 117 103 
015333 103 125 122 
1915. 015336 126 11 101 -ASCIZ 
015341 040 101 124 
015344 124 116 040 
015347 123 105 124 
015352 200 000 
1916 015354 124 105 123, EM21: «ASCII 
015357 124 040 062 
015362 040 04 040 
015365 123 124 101 
015370 124 125 123 
015375 072 040 115 
015376 101 123 124 
015401 105 122 200 
1917 015404 105 122 122 -ASCIZ 
015407 117 122 040 
015412 102 111 124 
015415 040 111 116 
015420 940 115 101 
015423 123 124 105 
015426 122 040 103 
015431 123 122 040 
015434 116 117 124 
015437 040 103 114 
015442 105 101 122 
015445 000 
1918 015446 102 125 122 EM22: .ASCI2 
015451 123 124 040 ; 
015454 104 101 124 
015457 101 040 114 
015462 101 124 105 
015465 040 102 111 
015470 124 040 117 
015473 106 040 105 
015476 111 122 040 
015501 127 101 123 
015504 040 116 117 
0155C7 124 040 123 
015512 105 124 260 
015515 000 
1919 
1920 015516 00 124 105 
015521 123 124 040 
015524 63 055 102 
015527 114 117 103 
015532 113 040 115 
015535 117 104 105 
015540 040 130 106 
015545 05 122 123 
015546 200 000 
1921 015550 00 124 105 MSG2: .ASCIZ 
015553 123 124 040 
015556 064 055 102 
015561 125 122 125 





/VIA ATIN SET/<CRLF> 


/TEST 2 STATUS: MASTER/<CRLF> 


7ERROR BIT IN MASTER CSR NOT CLEAR/ 


/BURS1 DATA LATE BIT OF EIR WAS NOT SET/<CRLF> 


MSG!: eASCIZ <CRLF> /TEST S5-BLOCK MODE XFERS/<CRLF> 


<CRLF> /TEST 4=-BURST MODE KFERS/tRLF> 


SEQ 0071 


—- a ee 








CZDRKAO DR11-W INTRPROC EXER 
ASCI1 MESSAGES 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


001116 
001126 
001116 
001440 


000000 
000001 
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<CRLF>/TEST S-BURST DATA LATE/<CRLF> 





Noe ees SO 
GOOOCOONOCOfoO NOO— 
ome FWNOW WOuwwm 


-EVEN 
SERRPC ,SBDADR,$GDDAi , SBDDAT ,0 


DERARRRRSRASAARRRRRRRRRSSARRRSERRRSRR ERR RRR EERE RRR RRR RSEE EERE RE EO 


; *DBUF 1S THE WORKING AREA IN MEM FOR ALL NPR OPERATIONS 


-*@ereeeeeeeeeteteetereeeeeeeeeeee tetera eteeteteteeese 


; 1ST ADRS OF DATA BUFFER 
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SYMBOL TABLE 








ABORT 001436 EM10 014442 PS = 177776 SW15 = 100000 SERTTL 
BAR 001416 EM11 014505 PSW == 177776 SW2 = 000004 SFILLC 
DR 001422 EM12 014554 PWRVEC= 000024 Sw3 = = 000010 SFILLS 
B1TO = 000001 EM13 014624 RCVTMO 001500 SW4 = 000020 SGDADR 
B1100 = 000001 EM14 014665 RDCHR = 104410 SW5 = = 000040 SGDDAT 
B1T01 = 000002 EM15 014753 ROLIN = 104411 SW6 == 000100 $GET42 
B1T02 = 000004 EM16 015075 RESVEC= 000010 Sw7 == _ 000200 $GTSWR 
B1T03 = 000010 EM17 015147 RESYNC 013652 SWw8 = =_- 000400 HD = 

B1104 = 000020 EM2 014047 RPRAM 001464 SW9 = 001000 SICNT 
B1T05 = 000040 EM20 015241 RSTVEC 011200 SYNCST 002742 SINTAG 
B1T06 = 000100 EM21 015354 RSYNC = 104412 TBITVE= 000014 SITEMB 
B1107 = 000200 EM22 015446 RTRN 003462 TEMP 001446 $LF 
B1108 = 000400 EM3 014130 R6 =%000006 TESTPC 001440 SLPADR 
B1109 = 001000 EM4 014203 R7 =%000007 TIME 001444 SLPERR 
BIT1 = 000002 EMS 014247 SAVE 001450 TKVEC = 000060 SMNEW 
B1T10 = 002000 EM6 014317 SCOPE = 000004 TOTAL 001442 SMSWR 
B1T11 = 004000 EM? 014370 SETUP2 001704 TPVEC = 000064 $NULL 
B1T12 = 010000 EOPT 010772 SETUP3 001730 TRAPVE= 000034 SOCNT 
*B1T13 = 026000 EOPTA 011140 SETVEC 011160 TRIVEC= 000014 SOMODE 
BIT14 = 040000 EOPTB 011146 SINIT1 006072 TYPDS = 104405 SOVER 
B1T15 = 100000 ERROR = 104000 SINIT2 006304 TYPE = 104401 SPASS 
BIT2 = 000004 ERRVEC= 000004 SLBRD 007330 TYPOC = 104402 $QUES 
B11T3 = 000010 GOCMPN 013502 SLDELY 013670 TYPON = 104404 SRDCHR 
BI1T4 = 000020 GTSWR = 104406 SLVFIN 010776 TYPOS = 104403 SRDLIN 
BITS = 000040 HT = 000011 SLISTR 006240 WCR 001414 $RDSZ = 
B1T6 = 000100 ICOUNT 001454 STACK = 001100 WICMPN 013414 SRTNAD 
B1T7 = 000200 INTADR 001410 START 001522 WISYNC 013706 S$SCOPE 
BI1T8 = 000400 1O0TVEC= 000020 START1 001506 XMITMO 001472 $SETUP= 
B1T9 = 001000 LDOBUF 011236 START2 001514 XPRAM 001456 $STUP = 
BOARD 001434 LF = 000012 STKLMT= 177774 SAUTOB 001134 $SVLAD 
BPTVEC= 000014 MINIT1 002760 STST1 006230 $BCADR 001122 $SWR = 
BRDTYP 002056 MINIT2 003226 STST2 006422 SBDDAT 001126 SSWRMK = 
CKSWR = 104407 MORS 002524 STST3 006502 $BELL 001160 STERM = 
CLRBUF 011220 MRDELY 013700 STST4 007416 SCHARC 011514 $TKB 
CNT 001430 MSBRD 004550 STSTS 010260 SCKSWR 012544 $TKS 
CPUHI] 013576 MSG1 015516 SWR 001140 SCMTAG 001100 $IN = 
CPULO 38013624 MSG2 015550 SWRCK 012306 $CM3 = 000000 $TPB 
CR = 000015 MSG3 015602 SWREG 000176 SCNTLG 013271 STPFLG 
CRLF = 000200 MSTER 001452 SwO = 000001 SCNTLU 013264 $TPS 
CSR 001420 MIPS = 106427 $wOO = 000001 SCRLF 001165 STRAP 
DBUF 015756 MTST1 003106 $wO1 = 000002 $OBLK 012162 STRAP2 
DDISP = 177570 MTST2 003526 SWO2 = 000004 SDOAGN 011114 $TRP = 
DH1 015633 MISTS 003652 SwO3 = 000010 SOTBL 012152 STRPAD 
DH2 015670 MTST4 004620 $wO4 = 000020 SENDAD 011104 STSTNM 
DHS 015725 MTST5 005446 SwOS = 000040 SENDCT 011052 STTYIN 
DISPLA 001142 NUM 001432 SwWO6 = 000100 SENDMG 011123 $TYPDS 
DISPRE 000174 PIRQ = 177772 SwO7 = 000200 SENULL 011120 STYPE 
DRVCTO 001424 PIRQVE= 000240 SwO8 = 000400 SEOP 011022 STYPEC 
DRVCT2 001426 PRO = 000000 swO9 = 001000 SEOPCT 011044 STYPEX 
DRVECT 001412 PR1 == 000040 Swi == 000002 SERFLG 001103 $TYPOC 
DSWR = 177570 PRe == 000100 $W10 = 002000 SERMAX 001115 $TYPON 
DT1 015734 PRS = 000140 SW11 = 004000 SERROR 012172 $TYPOS 
DI2 015746 PRG = 000200 SWwi2 = 010000 SERRPC 001116 SXTSTR 
T 015752 PRS = 000240 $SW13 = 020000 SERRTB 001170 $$GET4= 
EMTVEC= 000030 PR6 = 000300 SW14 = 040000 SERRTY 012516 SOF ILL 
EM 013754 PR? == 000340 
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SYMBOL TABLE SEQ 0074 


- ABS. 015760 000 
000000 001 
ERRORS DETECTED: 0 


VIRTUAL MEMORY USED: 35848 WORDS ( 141 PAGES) 
DYNAMIC MEMORY: 20746 WORDS ( 79 PAGES) 
ELAPSED TIME: 00:05:21 
LINK,LINK=SYSMAC.MLB/ML,LINK.P11 
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